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ABSTRACT 

This  thesis  describes  the  porting  of  a  NASA  developed 
Markov  reliability  analysis  tool  to  a  relatively  inexpensive 
IBM-AT.  Currently  the  Markov  analysis  tool,  called  SURE,  is 
not  widely  utilized  because  it  runs  in  an  expensive 
environment  consisting  of  a  VAX,  megatex  display,  and 
template  graphics  software.  Although  substantial  savings  can 
be  made  by  running  SURE  without  the  expensive  graphics,  the 
user  friendliness  of  the  tool  is  dramatically  degraded  by 
the  lack  of  graphics.  Accordingly  a  C  program  using  the 
inexpensive  GEM  graphics  environment  has  been  written.  The 
program  is  user  friendly;  it  uses  menus  for  option 
selections  and  prompts  for  data  entry. 
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I •  INTRODUCTION 

A  NASA  developed  program  for  computing  the  death  state 
probabilities  for  reconf igurable  fault  tolerant  computers 
forms  the  basis  for  this  Thesis.  Portions  of  the  Semi-Markov 
Unreliability  Range  Evaluator  (SURE)  [Ref .  1]  are  ported  to 
an  IBM-AT  environment.  The  original  version  of  SURE  [Ref.  2] 
used  theorems  developed  in  reference  3  which  enabled  the 
computation  of  the  death  state  probabilities  of  semi-Markov 
models.  The  latest  version  of  NASA's  SURE  uses  a  generalized 
method  developed  by  Lee  [Ref.  4]  and  White  [Ref.  5]  for 
calculating  reliability. 

In  this  Thesis,  the  essential  details  of  NASA's  SURE 
program  will  be  utilised  to  develop  a  relatively  inexpensive 
version  of  the  program,  for  the  IBM-AT  environment.  The  SURE 
derivative  developed  in  this  thesis  uses  only  White's  method 
for  analysis  of  semi-Markov  models.  White's  method  uses 
simple  parameters  of  a  model  such  as  means  and  variance  of 
the  transitions  to  bound  the  probability  of  entering  a  death 
state  of  a  semi-Markov  model.  The  advantage  of  using  NASA's 
SURE  technique  is  that  the  calculated  upper  and  lower  bounds 
of  system  reliability  are  algebraic  in  form,  computationally 
efficient,  and  normally  bound  the  reliability  of  the  semi- 
Markov  model  within  5  percent. 


A.   RELIABILITY  MODELING 

In  this  thesis  a  graphical  method  for  representing 
ultrareliable  systems  will  be  presented.  The  current  state 
of  the  art  in  electronic  component  manufacture,  produces 
parts,  that  used  singularly  in  the  production  of  circuit 
assemblies  do  not  obtain  the  reliability  standards  required 
for  ultrareliable  computer  systems.  Parallel  redundancy  has 
been  demonstrated  to  achieve  ultrareliable  computer  systems. 
Alternatives  to  massive  redundancy,  such  as  hybrid 
redundancy,  use  spares  and  reconfiguration  to  achieve  higher 
reliability  and  as  a  result  exhibit  both  fast  and  slow 
transitions.  A  semi-Markov  model  representing  a  hybrid 
redundancy  system  composed  of  three  processors  and  a  single 
spare  is  shown  in  figure  1.1. 
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Figure  1.1  Model  of  a  Triad  with  one  Spare 
From"-  reference  1,  page  2. 


All  hybrid  models  require  a  combination  of  slow  and  fast, 
transitions.  A  fault  or  failure  is  described  graphically  by 
a  horizontal  or  slow  transition  between  nodes.  Because 
failure  rates  are  assumed  to  be  constant  in  a  system's 
operational  phase,  the  fault  arrivals  are  exponentially 
distributed.  The  failure  rates  can  be  calculated  by  using 
the  MIL-STD  217D  handbook  or  by  experimentation.  A  constant 
representing  the  number  of  processors  currently  on  line  is 
used  in  conjunction  with  the  exponential  distribution  n  to 
represent  a  slow  or  horizontal  transition  between  states.  A 
node  represents  the  current  state  of  the  system.  The  current 
state  is  a  result  of  failures  and  system  recoveries  leading 
to  the  current  state.  States  are  represented  by  numbered 
circles  as  shown  in  figure  1.1. 

Hybrid  systems  have  the  ability  to  restore  the  full 
voting  plane  by  substituting  a  spare  processor  for  a  failed 
processor.  The  recovery  is  graphically  shown  as  a  vertical 
transition  between  states.  By  definition  the  recovery  rate, 
represented  by  d(t) ,  is  fast.  The  fast  transition  is 
characterized  by  a  conditional  mean  recovery  time, 
conditional  variance  and  transition  probability. 

During  the  time  that  a  hybrid  system  failure  has 
occurred  and  the  system  is  attempting  to  recover,  a  "race" 
occurs  between  recovery  and  the  arrival  of  another  fault.  If 
the  system  fails  to  recover,  then  another  horizontal 
transition  will   occur.  Eventually   the  hybrid   system   will 


enter  what   is  referred   to  as   a  death  state  as  depicted  by- 
states  3,  6,  and  8  in  figure  1.1. 

B.   THE  SURE  PROGRAM 

The  SURE  program  developed  by  the  NASA  Langley  Research 
Center  [Ref .  1]  is  currently  running  under  VMS  3.7  on  VAX- 
11/750  and  VAX-11/780  computers.  The  program  was  supposedly 
designed  with  minimal  usage  of  VMS  specific  constructs, 
however  this  is  debatable  since  many  of  the  constructs  are 
indeed  VMS  specific  and  are  not  easily  ported  to  other 
machines  or  operating  systems.  NASA's  SURE  is  composed  of 
several  modules  -  the  computational  module  which  is  written 
in  Pascal,  the  front  end  module  which  is  written  in  Pascal 
and  the  graphics  output  module  which  is  written  in  Fortran, 
and  interfaces  to  the  TEMPLATE  graphics  library.  Because  the 
graphics  environment  is  very  expensive  and  has  specific 
requirements  the  graphical  portion  is  normally  not  utilized, 
by  users  other  than  NASA. 

The  SURE  program  derivative  developed  in  this  Thesis  is 
partially  functional  on  an  IBM-AT.  The  program  consists  of 
three  modules  -  the  front  end  module,  the  computational 
module  and  the  SURE  options  module,  plus  numerous  include 
files.  The  routines  are  written  in  the  C  language  using  the 
Lattice  C  compiler.  Many  of  the  computational  routines  are  a 
straight  Pascal  to  C  conversion.  The  remaining  routines  are 
required  to   provide  the   graphical  interface   for  the   SURE 


derivative  program.  When  completed  the  SURE  derivative 
program  will  be  able  to  perform  the  basic  functions  of 
NASA's  SURE  on  a  small  scale  model. 

C.   PROBLEM  OBJECTIVE 

Research  in  fault  tolerant  computers  is  being  conducted 
at  the  Naval  Postgraduate  School.  The  need  to  quantify  the 
reliability  of  the  fault  tolerant  designs  being  considered 
is  the  driving  force  behind  this  thesis.  The  objective  of 
this  project  is  to  implement  the  SURE  program  in  a 
relatively  inexpensive  IBM-AT  environment.  The  program 
should  be  user  friendly,  interactive,  and  able  to  perform 
the  same  basic  operations  as  the  NASA  developed  SURE  program 
[Ref .  1] .  To  accomplish  the  objective,  the  program  was 
written  in  the  C  language  and  uses  GEM  (Graphics  Environment 
Manager)  [Ref.  6]. 

Reference  1  is  the  work  of  Ricky  W.  Butler  of  NASA, 
Langley.  References  1  and  5  are  the  basis  of  all  the  theory 
discussed  in  this  Thesis.  Chapters  III  and  IV  present 
discussions  developed  on  White's  technique. 
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I I .  PROGRAM  DEVELOPMENT 

The  package  developed  in  this  thesis  was  designed  to 
meet  the  objectives  outlined  in  the  previous  chapter.  It  is 
an  interactive  package  written  in,  C,  to  run  on  the  IBM-AT 
(Appendix  A) .  The  C  language  was  chosen  for  the  following 
reasons : 


1)  C  programs  using  the  Lattice  compiler  can  interface 
with  the  state-of-the-art  GEM  graphics  package. 

2)  C  code  is  efficient  in  terms  of  memory  usage  and 
execution  speed. 

3)  C  appears  to  be  the  micro-computer  language  of  the 
future,  therefore  it  will  be  easy  for  programmers  to 
alter  and  improve  this  program  in  the  future. 


A.   APPROACH  TO  THE  PROBLEM 

A  combination  of  top-down  and  bottom-up  programming 
techniques  were  used  to  develop  a  microcomputer  based  SURE 
package.  First,  the  tasks  that  the  program  must  perform 
were  defined.  Then,  each  task  was  developed  in  greater 
detail  until,  finally,  very  specific  routines  were 
implemented  to  perform  each  task.  Of  course,  a  few  new  tasks 
were  defined  and  routines  created  during  the  development  of 
the  program  and  these  new  tasks  were  incorporated  with  the 
existing  GEM  routines. 
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The  tasks   which  the  program  performs  may  be  broken  down 
into  three  basic  categories: 

1)  Window  manipulation. 

2)  Program   control. 

3)  Reliability   analysis. 

The  approach  used  to  accomplish  these  tasks  is  discussed 
in  the  following  subsections. 

1 •   Window  Manipulation 

The  window  manipulation  task  uses  GEM  Application 
Environment  Services  (AES)  to  build  two  windows  for  the 
display  and  manipulation  of  input  states  and  data.  GEM  AES's 
subroutine  libraries  provide  routines  for  a  wide  variety  of 
tasks,  including  windowing,  monitoring  the  mouse's  movement, 
displaying  system  messages  and  error  messages,  and  drawing 
objects  on  the  screen  [Ref .  6].  The  first  window  (see 
Figure  2.1)  is  described  as  the  picture  window  where  all  the 
graphical  interpretations  of  the  system  are  displayed.  The 
second  window  is  referred  to  as  the  data  window.  The  picture 
window  is  initialized  to  60  percent  of  the  screen  width;  the 
remaining  40  percent  is  occupied  by  the  data  window. 

The  manipulation  of  these  windows  is  controlled  by 
the  subroutines  that  are  contained  in  ,  the  Front-End  of 
SURE  (Appendix  B) .  Specific  details  about  the  manipulation 
and  editing  of  these  windows  can  be  found  in  the 
documentation  for   GEM  [Ref.   6].  Although   the  author  found 
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the  GEM  documentation  very  difficult  to  use  and  understand, 
nevertheless  GEM  is  a  very  powerful  new  product  that 
additional  documentation  should  help  to  make  user  friendly. 


Desk  File  Scr-Options  Sure-Options 


IBEEnH 


SURE  DATA  UINDOU 


Figure  2.1   SURE  Windows 

The  windows  can  be  manipulated  in  size,  viewing 
area,  and  zooming  by  manipulating  "window  control  areas" 
located  in  the  border  areas  of  the  windows.  User  interaction 
with  any  of  the  window  control  areas  causes  some  change  to 
take  place,   either  in   the  window  or  the  window  as  a  whole. 
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Additional  information  about  the  manipulation  of  the  windows 
will  be  discussed  in  chapter  VI. 
2  -   Program  Control 

The  environment  that  the  user  works  in  is  modeled 
after  the  Apple  Macintosh  computer.  A  "mouse"  is  used  to 
"click"  on  "windows",  pull-down  "menus",  and  otherwise 
interact  with  the  system.  Menus  represent  groups  of  SURE 
options  that  a  user  can  choose  within  SURE.  To  select  a 
menu,  the  user  places  the  mouse  form  over  the  menu's  title 
in  the  menu  bar.  This  causes  the  menu  to  drop  down.  The  menu 
appears  in  a  rectangle  below  the  menu  bar  and  remains  until 
the  user  clicks  the  mouse  button  (see  Figure  2.2). 

Program  control  uses  the  concept  of  option  menus.  A 
variety  of  menus  are  presented  to  the  user  throughout  the 
program's  execution  showing  the  options  available  at  that 
time.  Sometimes  self -management  is  also  used  to  control  the 
option  menus.  That  is,  an  option  selected  by  the  user 
sometimes  reduces  his  subsequent  options  by  automatically 
presenting  a  predetermined  menu. 

The  menu  driven  options  approach  presents  options  in 
plain  English.  As  a  result  the  user  does  not  have  to  know 
any  special  language  or  commands.  Self  management  and  plain 
English  options  allow  the  program  execution  to  flow  with  a 
minimum  number  of  inputs  and  far  fewer  errors. 
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Desk  File  Scr-Options 
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Conpute  . 
Print  Hardcopy  | 
Slow  Transition 
Fast  Transition 
Enter  States,  v, 
Enter  Constants 


SURE  DATA  WINDOW 
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Figure  2.2  Sure  Menu 


3 •   Reliability  Tasks 

The  original  SURE  used  both  the  Lee  and  White 
methods  to  compute  the  reliability.  Although  the  objective 
was  to  transport  a  graphically  enhanced  version  of  the  NASA 
developed  SURE   tool  to  an  inexpensive  environment,  the  IBM- 
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AT  version  uses  only  White's  theorem.  Nevertheless  the 
program  was  designed  to  allow  additional  computation  methods 
to  be  easily  added  at  a  later  date.  The  White  method  is 
discussed  at  length  in  Chapter  III. 

B.   ORGANIZATION  OF  THE  PROGRAM 

Low  level  routines  were  written  based  on  their  output. 
The  input  of  these  routines,  then,  defined  the  output  of  the 
next  higher  routine.  This  process  of  building  upward  was 
continued  until  ultimately  the  required  input  data  came 
directly  from  the  user.  For  this  reason,  the  parameter 
input  routines  form  the  higher  levels  of  the  program. 

At  all  times  during  the  programming  process  the  routines 
were  written  using  modular  programming  techniques.  In  the 
GEM  environment  the  menu  items  and  dialog  boxes  are  created 
with  the  aid  of  the  GEM  Resource  Construction  Set  (RCS).  A 
dialog  box,  which  is  a  special  form  used  in  the  GEM 
environment,  provides  a  consistent  method  of  interaction 
between  SURE  and  the  user.  After  this  step  is  completed  the 
code  necessary  to  use  the  resource  file  (menus  and  dialogs) 
must  be  developed.  Additional  information  can  be  found  in 
reference  6. 

The  basic  organization  of  the  program  is  shown  in  Figure 
2.3.  The  shell  routines  were  written  first,  the  input  model 
routines  next,  followed  by  the  interactive  data  routines  and 
finally  the  computation  routines. 
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Figure  2.3  Program  Organization 
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III.  BOUNDS  BASE  ON  MEANS  AND  VARIANCES 

In  this  section  the  Software  Implemented  Fault  Tolerance 
(SIFT)  computer  [Ref.  7]  figure  3.1  is  utilized  to  describe 
White's  theorem  [Ref.  5].  White's  theorem  provides  a 
graphical  means  of  computing  the  upper  and  lower  bounds  of 
probabilities  of  transitioning  a  given  model  through  all 
paths  to  death  states.  Normally  these  bounds  can  be  computed 
within  five  percent  of  each  other. 

In  the  SIFT  model  there  are  a  total  of  sixteen  possible 
paths  which  must  be  considered  to  reach  deathstates  4,  8, 
11,  14  and  16. 

1  ->  2  ->  3  ->@ 

1  ->  2  ->  5  ->  6  ->  7  ->(£) 

1  ->  2  ->  5  ->  6  ->  9  ->  10  ->  (1 


1  ->  2  ->  5  ->  6  ->  9  ->  10  ->  12  ->  13  ->  (£5 

* 
1  ->  2  ->  5  ->  6  ->  9  ->  10  ->  12  ->  13  ->  15 

Q  -  Death  State 

White's  theorem  calculates  the  probabilities  of  traversing 
the  model  through  each  path.  The  sum  of  these  probabilities 
represents  the  unreliability  of  the  model. 
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Figure  3.1  Semi-Markov  Model  of  SIFT 
From:  reference  1,  page  4. 


A.   PATH-STEP  CLASSIFICATION 

In  order  to  apply  White's  theorem  three  classifications 
of  paths  through  a  model  must  be  defined.  The  classes  are 
defined  by  the  "on-path"  and  "off-path"  transitions  from 
the  state.  The  "on-path"  and  "off -path"  transitions  are 
further  defined  slow  for  horizontal  transitions  and  fast  for 
vertical  transitions.  The  term  "on-path"  will  be  used  to 
represent  the   transition  currently   analyzed.  The  state  and 


19 


the  transition   leaving  a   state  is   defined   as   the   "path 
step" . 

1 ■   Slow  On  Path.  Slow  Off  Path 


0 


fli 


Ti 


Figure  3.2   Slow  on  Path,  Slow  off  Path 
From:  reference  1.  page  6. 


The  first  class  to  be  discussed  represents  slow  on- 
path  fault  arrival  [Fig.  3.2]  characterized  by  the  constant 
failure  rate  Hi  .  This  class  may  contain  many  off-path  slow 
transitions.  The  sum  of  the  off -path  slow  transitions  is 
represented  by  [*i  .  Transitions  9  ~>  10  and  12  ->  13  in 
figure  3.1  are  exponential  fault  arrivals  path  steps  of  this 
class . 

The  user  should  note  that  in  this  model  there  are  no 
fault  recovery  transitions.  The  model  represents  path  steps 
with  failure  modes  only.  For  electronic  circuits  with  at 
least  one  fault  recovery  reconfiguration,  a  class  three 
model  should  be  used. 
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2.   Fast On  Path.  Arbitrary  Off  Path 


Fi.i 


Ei 


Figure  3.3   Fast  On  Path,  Arbitrary  Off  Path 
From:  reference  1,  page  6. 


This  class  is  characterized  by  a  single  on-path  fast 
vertical  transition  representing  fault  recovery  [Fig.  3.3], 
Ei  represents  the  sum  of  all  slow  transitions.  Path  steps 
6  ->  9  and  7  ->  10  of  the  SIFT  model  shown  in  figure  3.1  are 
examples  of  fast  transitions.  Each  fast  transition  is 
characterized  with  a  conditional  mean,  conditional  variance 
and  transition  probability.  If  a  single  recovery  transition 
exists  then  the  transition  probability  is  one,  if  there  is 
two  or  more  transitions  then  a  fractional  transition 
probability  must  be  assigned.  Many  off -path  fast  and  slow 
transitions  may  exist  in  this  class. 
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3.   Slow  On  Path,  Fast  Off Path 


PJ 


Figure  3.4  Slow  On  Path,  Fast  Off  Path 
From:  reference  1,  page  11. 


This  class  [Fig.  3.4]  covers  all  transition  classes 
not  covered  by  class  one  or  class  two.  Specific  requirements 
for  this  class  are  that  at  least  one  fast  transition  must  be 
a  off -path  transition  and  the  slow  transition  must  be  on- 
path.  Bj  represents  the  sum  of  the  fault  arrival  rates  for 
the  off -path  slow  transitions.  Paths  7  ->  8  and  10  ->  11  in 
figure  3.1  represent  this  class. 

B.   WHITE'S  MULTIPLE  RECOVERY  THEOREM 

White's  theorem  as  presented  in  reference  1,  bounds  the 
upper  and  lower  value  of  the  probability  D(t)  (see  Eq.  3.1) 
of  entering  a  death  state  during  mission  time  T,  subsequent 
to  k  class  one  path  steps,  m  class  two  path  steps  and  n 
class  three  path  steps  : 


LB  £  D(T)  <  UB 


(3.1) 
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where 

m  n 

QB  =  E(T)  vt    p(Fi  )  -n:   aj  u(Hj  )  (3.2) 

1=1       j=i 


m  u  2  ( Fi  )  +  a2  ( Fi  )   n 

LB  =  E(T-6)  tc   p(Fi)[l-€i  u(Fi  )  -   ]  tc 

i=l  ri2         j=l 


(aj+pj  )[u2(Hj  )+a2(Hj  )]    u2  (Hj  )+a2  (Hj  ) 

{  u(Hj)  }   (3.3) 

2  sj 


8  =  ri  +  ...  +  rm  +  si  +  ...  +  sn 

D(t)  =  Probability  of  Entering  a  Death  State 

UB    =  Upper  Bound 

LB    =  Lower  Bound 

U     =  Conditional  Mean 

cr2    =  Conditional  Variance 

P(Fi)=  Transition  Probability 

E(T)  =  the  probability  of  traversing  a  path  consisting  of 
only  the  class  1  path  steps  within  time  T. 
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I V .   TRANSIENT  AND  INTERMITTENT MODELS 

White's  theorem  as  discussed  in  chapter  III  is  designed 
to  calculate  the  probability  of  entering  a  pure  death  state 
of  a  semi-Markov  model.  Unfortunately  the  analysis  of  an 
electronic  circuit  may  not  end  at  a  set  of  finite  paths 
through  the  model.  Occasionally  hybrid  models  under  analysis 
will  require  the  modelling  of  paths  which  repeat  as  a  result 
of  intermittent  or  transient  faults. 

Accordingly,  several  models  that  may  be  used  to 
represent  this  class  of  fault  will  now  be  discussed. 

The  first  model  of  a  transient  fault  can  be  represented 
as  shown  in  figure  4.1. 


Figure  4.1   Transient  Fault  Model 
From:  reference  1,  page  13. 

The  constant  fault  arrival  rate  h  represents  faults  of  a 
transient  nature  in  the  model.  The  distribution  function 
F(t)  represents  the  time  that  the  transient  fault  may  exist 
in  the  hybrid  circuit  being  modelled.  The  hybrid  circuits 
being   modelled     will    try    to    recover    by    circuit 
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reconfiguration.  The  reconfiguration  process  has  a 
distribution  represented  by  G(t).  An  infinite  series  of 
paths  results  from  using  this  model  [Fig.  4.2]. 


1  ->  2  ->  3 

1  ->  2  ->  1  ->  2  ->  3 

1  ->  2  ->  1  ->  2  ->  1  ->  2  ->  2  ->  3 

1  ->  2  ->  1  ->  2  ->  1  ->  2  ->  1  ->  2  ->  3 


Figure  4.2   Infinite  Paths 
From:  reference  1,  page  13. 


As  the  length  of  the  path  increases  the  significance  of  the 
probability  of  entering  the  pure  death  state  3  in  the  model 
decreases.  By  limiting  the  number  of  times  a  particular  path 
or  loop  is  repeated  computational  efficiency  can  be 
achieved. 

NASA's  SURE  has  a  user  controlled  special  constant 
called  TRUNC  which  will  limit  the  number  of  times  that  a 
path  is  traversed  in  the  model.  This  special  constant  will 
be  included  in  the  completed  SURE  derivative  program. 
Another  interrelated  constant  is  the  PRUNE  constant.  It  is 
user-specifiable  and  will  terminate  the  computation  of  all 
paths  which  fall  below  the  probability  specified  by  the 
PRUNE  constant.  The  PRUNE  constant  effects  all  paths  in  the 
model  inclusive  of  paths  that  do  not  repeat.  NASA  recommends 
that  users  experiment  with  different  values  for  TRUNC  and 
PRUNE  to  ensure  convergence. 
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The  next  model  to  be  discussed  is  the  model  representing 
intermittent  faults  [Fig.  4.3].  The  fact  that  an 
intermittent  fault  does  not  disappear  differentiates  it  from 
the  transient  fault.  A  fault  that  is  not  active  is 
represented  by  Q  in  the  intermittent  model. 


G> 


Figure  4.3   Intermittent  Faults 
From:  reference  1,  page  15. 


This  model  shown  in  figure  4.3  appears  very  similar  to 
the  previous  model,  the  model  is  however  computationally 
very  different.  In  the  intermittent  model  a  loop  is  formed 
on  a  vertical  or  fast  transition,  which  may  cause  a  very 
slow  convergence. 

The  recommended  approach  [Ref.  1]  for  circuits 
exhibiting  slow  convergence  is  to  model  the  circuit  with  the 
collapsed  transition  model  shown  in  [Fig.  4.4].  In  the 
collapsed  transition  model  G*  represents  the  conditional 
mean,  conditional  variance  of  the  recovery  time  distribution 
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and  transition  probability  of  a  path  step  attempting  to 
recover  from  an  intermittent  fault.  These  values  can  be 
found  experimentally,  or  calculated  from  F,  G  and  Q  of  the 
previous  model. 


G> 


Figure  4.4   Collapsed  Transition 
From:  reference  1,  page  16. 


The  analysis  given  in  this  section  came  from  reference  1 
it  can  be  applied  to  many  similar  models  to  demonstrate  that 
convergence  will  occur.  Users  desiring  more  information  are 
directed  to  reference  1. 
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V .   THE  SURE  USER  INTERFACE 

The  SURE  derivative  program  creates  a  graphical 
environment  in  which  a  semi-Markov  model  can  be  graphically 
input  with  a  mouse  and  high  resolution  display.  A  simple 
graphical  method  is  utilized  to  enumerate  the  fast  and  slow 
transitions.  This  is  accomplished  using  many  of  the  routines 
and  graphical  symbols  resident  in  GEM.  Graphical  symbols 
such  as  circles  and  arrows  are  used  to  enumerate  the  states 
and  the  transitions  between  states.  Menu  options  are 
selected  by  the  user  initiating  very  specific  dialog  boxes 
to  appear  in  the  center  of  the  screen.  The  dialog  boxes 
require  the  user  to  interact,  and  form  the  basis  for  direct 
data  input  to  the  SURE  program.  The  input  data  which  is 
input  by  way  of  the  dialog  boxes  is  stored  in  data 
structures  for  use  by  the  SURE  program.  The  graphical 
language  required  by  the  user  for  interaction  with  the  SURE 
program   will  be  discussed  in  detail  in  this  section. 

A.   BASIC  PROGRAM  CONCEPT 

As  the  first  step  in  describing  a  semi-Markov  model  the 
SURE  user  must  assign  state  locations  in  the  picture  window. 
Assignment  of  state  numbers  is  done  automatically  as  the 
state  locations  are  defined.  State  assignment  numbers  begin 
at  one   and  are   incremented  to   a  maximum  of  100.  The  semi- 
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Markov  model  description  is  continued  by  enumerating  all  the 
transitions.  As  described  in  the  previous  sections,  each 
transition  is  described  as  being  either  slow  or  fast. 
Consequently,  there  are  two  different  menu  selections  used 
to  enter  transitions  -  one  for  slow  transitions  and  the 
other  for  fast.  If  the  transition  is  slow,  then  the  slow 
menu  selection  is  used.  The  user  simply  moves  the  mouse  into 
the  Sure-Options  part  of  the  Main  Menu.  A  drop  down  menu 
will  appear.  The  user  then  positions  the  mouse  on  the 
appropriate  entry  and  clicks  the  mouse  (see  Figure  5.1). 


Desk   File  Scr-Options 


<D      <D 


Sure-Options 
liJFIlftlfliTI 


Conpute  Reliability 
Print  Hardcopy 


Slow  transition 


ast  transition 
Enter* States 
Enter  Constants 


SURE  DATA  WINDOW 


IHBWBBBBBfflfflBMBBHBW^l  M 


Figure    5.1      Slow   Transition 
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A  slow  transition  is  the  most  trivial  transition  to  draw 
graphically.  The  routines  required  to  draw  and  label  the 
graph  are  located  in  Appendix  C.  The  routines  necessary  are 
self  documenting  and  should  be  easy  to  follow. 

This  menu  selection  causes  a  dialog  box  to  appear  in  the 
center  of  the  screen  (see  Figure  5.2).  A  slow  transition 
from  1  to  2  can  then  be  defined  by  typing  in  the  exponential 
transition  rate.  This  value  can  be  defined  using  previously 
defined  constants  or  by  typing  in  the  numeric  values. 

Figure  5.2  defines  a  slow  exponential  transition  from 
state  1  to  state  2  with  rate  0.0003.  If  the  transition  is 
fast,  then  the  fast  transition  menu  selection  is  made. 
This  selection  causes  a  fast  transition  dialog  box  to  appear 
in  the  center  of  the  screen  (see  Figure  5.3).  A  fast 
transition  from  state  2  to  state  4  is  defined  by  entering 
the  mean,  standard  deviation  and  the  probability  of  the 
transition.  In  both  the  slow  and  fast  transitions  the  values 
entered  will  appear  on  the  screen  as  shown  in  Figure  5.4. 
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Desk    File   Scr-Options 


Sure-Options 

iHMMIB 


SURE  DATA  UINDOU 


I 


0 <D 


I 


MMffl        BBIilil 


Enter  the  value  for  this 
slow  transition,  y::  P  -  ■ 
Constants  nay  be  used, 
Backspace  over  old  values 
then  type  in  new  .-rows, 


RfiTEiWW#3 


HP 


Figure  5.2   Slow  Transition  Dialog  Box 
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Desk -File  ScHtonons 


Sure-Options 

3—M 


(L> — — *0) 


(i) 


♦  I    m-  'SURE  DATA  WINDOW  ^ 


U   If  B    1! 


!z:-Jo.riit  the  v^lyes  for  this  fast ^ 


Figure  5.3   Fast  Transition  Dialog  Box 
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Desk  File  Scr-Options  Sure-Options 
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SURE  DATA  I  INDOl 
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Figure  5.4   Example  Slow,  Fast  Transition 

B.   SURE  MODEL  DEFINITION  SYNTAX 

The  transition-description  menu  selection  described 
above  are  the  only  essential  ingredients  in  the  SURE 
graphical  language.  However,  the  flexibility  of  the  SURE 
program  has  been  increased  by  adding  several  features 
commonly  used  by  menu  driven  programs. 
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The   SURE    user   may   equate   numbers   to   identifiers. 
Thereafter,  these   constants  identifiers  may  be  used  instead 
of  the  numbers.  For  example, 

LAMBDA  =  0.00  52; 
can  be   entered  by   selecting  the   menu  item   labeled   enter 
constants,  again   a  dialog   box  will  appear  in  the  center  of 
the  screen.   The  user  may  then  enter  the  identifier  and  it's 
value  (see  Figure  5.5). 

The  user  should  use  a  little  forethought  before 
initiating  and  defining  the  constants.  When  the  dialog  box 
appears  the  name  of  the  constant  is  normally  selected  and 
should  be  entered  first  followed  by  its  value,  however 
either  can  be  defined  first.  The  editable  fields  within  the 
dialog  box  are  selected  by  moving  the  mouse  to  the  desired 
field  and  clicking  once.  The  desired  values  can  then  be 
entered  by  way  of  the  keyboard.  The  user  may  need  to 
backspace  over  the  last  items  that  were  entered. 

Constants  may  also  be  defined  in  term  of  previously 
defined  constants: 

GAMMA  =  LAMBDA* 10; 

In  general  the  constant  is  identified  by  a  string  of  up 
to  eight  letters,  digits,  and  underscores  (_)  beginning  with 
a  letter,  with  a  value  defined  as  an  arbitrary  mathematical 
expression. 
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Desk   File   Scr-Options 


Sure-Options 


To  define  a  constant  type  it's  natie 
in  the  first  editable  held.  Select 
the  field  by  clicking  on  the  field 
with  the  left  nouse  button  and  then 
backspace  over  the  last  constant  . 
Ente?  the  na^e  of  new  pqnst^nt. 

NflHE;iAHBPft_  :   ;L   -: 

Then  type  the  value  yog  wish  to 
assign  the  constant  in  the 
the  second  field, 


VALUE: 0.0052 


i—^:\  run 


Figure  5.5   Enter  Constants  Dialog  Box 

When    specifying   transition   or   holding   time 

parameters  in   a  dialog   box,   arbitrary   functions   of   the 

constants  may  be  used.  The  following  operators  may  be  used: 

+    addition 

subtraction 
*   multiplication 
/    division 
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Expressions  may  be  grouped  by  using  ( ) . 
The  following  are  permissible  expressions: 


.00001 
alpha*1.2 

alpha*1.2  +  alpha*12 


1 •   Entering States 

The  states  are  entered  by  selecting  the  menu  item 
labeled  enter  states.  The  user  then  carefully  selects  the 
position  of  the  states  in  the  picture  window  by  placing  the 
mouse  in  the  desired  location.  The  user  then  depresses  the 
left  mouse  button,  a  state  is  then  drawn  and  labelled  in  the 
location  specified.  The  program  will  not  allow  a  state  to  be 
drawn  too  close  to  another  state  nor  will  it  allow  the  user 
to  draw  a  state  too  close  to  the  boundaries  of  the  window. 

2 .   Slow- Trang it ion  Description 

A  slow  transition  is  completely  specified  by 
selecting  a  slow  transition  from  the  menu,  clicking  the 
mouse  button  on  the  source  state,  and  then  clicking  the 
mouse  button  on  the  destination  state.  The  resulting 
transition  is  displayed  in  the  picture  window  as  an  arrow 
connecting  the  source  state  to  the  destination  state.  The 
dialog  box  will  appear  and  the  user  may  enter  the  desired 
rate  for  this  slow  transition.  The  following  will  appear  in 
the  data  window: 

"source"   TO  "dest"  =  "rate" 
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where  "source"  is  the  source  state,  "dest"  is  the 
destination  state,  and  "rate"  is  any  valid  expression 
defining  the  exponential  rate  of  the  transition.  In  the 
notation  of  the  theory  section  we  have 

i, j  =  fa  ; 

3 .   E>st-trangition  Description 

To  enter  a  fast  transition  the  appropriate  menu  item 
is  selected,  then  the  user  designates  the  source  and 
destination  as  described  above.  A  dialog  box  appears  and 
again  the  appropriate  information  is  entered.  The  following 
syntax  will  appear  in  the  data  window. 

"source"  TO  "dest"  =  "mean"  ,"stddev",  "fract" 

where 

"mean"    =  an   expression   defining  the  conditional  mean 
transition  time,  u(F). 

"stddev"  =  an  expression  defining  the  conditional 
standard  deviation  of  the  transition  time, 
cr(F). 

"fract"   =  an  expression   that   defines   the   transition 
probability,  p(F) 

and  "source"   and  "dest"   define  the   source  and  destination 
states,  respectively.  In  the  notation  of  the  theory  section, 
we  have 

i,  j  =  <  u(Fi  ),  cr(Fi  ),  p(Fi  )  >; 

The  third  parameter  "fract"  is  required  to  define 
the  transition  probability.  If   there  is   only  one  recovery 
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transition  the  probability  is  1.0.  If  there  exists  more  than 
one  recovery  transition  the  sum  of  the  probabilities  from 
each  state  should  total  1.0,  the  user  must  ensure  this. 

C.   SURE  COMMAND  SYNTAX 

The  SURE   menu  is  broken  down  into  four  sub-menus,  Desk, 
File,  Scr-Options  and  Sure-Options  (see  Figure  5.6). 


DESK 

FILE 

SCR-OPTIONS 

SURE-OPTIONS 

About  Sure 

Load 

Pen/Eraser 

Plot  Reliab 

Calculator 

Save 

Erase  Pic 

Compute  Reli 

Clock 

Save  AS 

View 

Print  Hard 

Abandon 

Slow  Trans 

Quit 

Fast  Trans 
Enter  Stat 
Enter  Cons 

Figure  5 . 6  Sure  Menus 

Each   entry  will  be  discussed  in  the  following  sections. 
1 •   Desk 

The  sub-menu   desk  contains   menu  items  that  are  not 
required  by  SURE.  The  menu  items  are  listed  below: 


About  Sure 
Calculator 


Clock 


-  Produces  a  dialog  box  listing  information 
about  the  author  of  SURE. 

-  For  convenience,  a  calculator  will  appear 
in  the  center  of  the  screen  allowing  the 
user  to  obtain  the  value  of  an  arbitrary 
expression. 

-  System  time  will  appear  on  screen 
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2 .   File 

The  sub-menu   File  contains   the  menu   items  for  the 

loading  and   storing  of  SURE  specific  information.  Each  menu 

item  is  discussed  below: 

Load  -  The  load  selection  is  used  to  load  a  SURE 
run  that  was  previously  saved. 

Save  -  Saves  the  file  for  current  SURE  run.  The 
user  must  have  previously  named  the  file 
by  means  of  a  load  or  Save  As. 


Save  As  -  Saves  the  present  SURE  run  under  a  new 
filename. 

Abandon  -  Reverts  to  the  last-saved  version  of  the 
users  file.  If  the  user  is  dissatisfied 
with  changes  made  ,  Abandon  clears  the 
changes   and   gives  the  user  a  fresh  copy. 

Quit        -  Takes  the  user  back  to  the  GEM  Desktop. 


3 •   Screen~Options 

This  sub-menu   controls  the   operations  performed  in 

the  picture   window  and  data  windows.  The  screen  options  are 

discussed  below: 

Pen/Eraser  -  The  selection  allows  the  user  to  select 
the  small,  medium  and  large  states  and 
colors  as  desired. 

Erase  Pic  -  Erases  the  currently  displayed  information 
from  the  picture  and  data  windows. 

View  -  Allows  the  picture  window  to  be  displayed 
in  several  expanded  and  non-expanded 
modes. (To  be  added  Later) 
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4 •   Sure -Opt ions 

This  sub-menu   contains  the  main  SURE  user  interface 

menu  items.   It  should   be  used   continuously  during   a  SURE 

session.  Menu  items  are  discussed  below: 

Plot  Reliab  -After  a  Compute  Reliability,  this  item  can 
be  selected  to  plot  the  output  in  the 
picture  window. (To  be  added  later) 

Compute  Reli  -After  a  semi-Markov  model  has  been  fully 
described  to  the  SURE  program,  this  item 
is  used  to  initiate  the  computation. 

Print  Hard  -This  item  is  used  to  print  the  screen  to  a 
printer. (To  be  added  later) 

Slow  Trans  -Used  to  define  a  slow  transition.  Causes  a 
interactive  dialog  box  to  appear  in  the 
center  of  the  screen.  The  user  types  in 
the  value  for  the  slow  transition. 

Fast  Trans  -Used  to  define  a  fast  transition.  Causes  a 
interactive  dialog  box  to  appear  in  the 
center  of  the  screen.  The  user  types  in 
the  values  for   the  fast  transition. 

Enter  Stat  -Used  to  enter  the  states.  Causes  the  SURE 
program  to  prepare  to  receive  the  state 
locations  specified  by  the  user.  The  user 
defines  state  locations  by  positioning  the 
mouse  cross-hairs  and  pressing  the  button. 

Enter  Cons  -Used  to  enter  the  user  defined  constants. 
Causes  an  interactive  dialog  box  to  appear 
in  the  center  of  the  screen.  The  user  may 
define  new  constants  or  any  of  the  Special 
constants  discussed  below. 
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5 •   SURE  Derivative  Special  Constants 

NASA's  SURE  has  many  special  constants  (see  TABLE 
5.1)  which  interact  with  the  user  to  provide  special  program 
control.  The  definitions  and  the  names  of  the  constants  used 
by  NASA  (Ref.  1,  page  25  &  26)  are  given  in  TABLE  5.1. 
Several  of  these  special  constants  such  as  TRUNC  and  PRUNE 
were  previously  discussed.  The  completed  SURE  derivative 
program  will    implement   several   of   these   constants   as 


follows : 


TIME 
POINTS 


PRUNE 


WARNDIG 


TRUNC 


LBFACT 
LIST 


TABLE  5.1  SPECIAL  CONSTANTS 

=  25;  Sets  the  mission  time  to  25.  The  default 
TIME  is  10. 

=   25;  Indicates   that    25   points    should  be 
calculated/plotted    over    the   range  of 
the  variable. 
Default  value  is  25. 

=  .1;  Sets  pruning  level  to  .1.  The  program 
will  stop  searching  a  path  after  its 
current  probability  becomes  less  than  the 
specified  level.  The  default  is  0.0. 

=  2;  Sets  the  number  of  digits  accuracy 
desired  in  the  upper  bound  to  2  when  the 
PRUNE  command  is  in  use.  The  default  is 
1. 

=  2;  Sets  truncation  point  at  2.  Default  is  3. 
If  an  infinite  loop  is  found  in  the  graph 
this  determines  the  maximum  number  of 
times  that  the  loop  will  be  traversed. 

=  20;  Sets  the  ki  and  k!j  constants  in  White's 
theorem  to  20 . 

-  3;  Sets  the  level  of  information  to  be  sent 
to  the  Data  window.  Default  is  2. 

Adapted  from:  reference  1,  page  25  &  26. 
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VI .  EXAMPLE SURE SESSIONS 

A.  OUTLINE  OF  A  TYPICAL  SESSION 

The  SURE  program  was  designed  for  interactive  use.  It 
uses  a  graphical  approach  to  describe  a  semi-Markov  model. 
The  following  method  of  use  is  recommended: 

1.  Select  the  desired  state  size,  using  the  pen/erase 
menu  item.  The  default  size  is  medium.  All  graphical 
sizing  aids  are  presently  designed  to  operate  in  the 
medium  mode. 

2.  Enter  all  the  Special   constants. 

3.  Enter  all  the  user  defined  constants. 

4.  Use  the  mouse  to  carefully  enter  the  state 
locations.  Verify  that  the  model  appears  in  the 
desired  form.  If  the  model  is  not  in  the  desired 
form  erase  the  model  by  using  erase  picture. 

5.  Carefully  define  the  transitions  by  selecting  either 
a  slow  or  fast  transition.  Define  the  source  state 
by  clicking  once  on  the  state,  define  the  (dest) 
destination  state  by  clicking  once  on  the  state.  The 
appropriate  state  is  selected  if  the  mouse  location 
is  within  18  pixels  of  the  center  of  a  state.  Enter 
the  values  to  describe  the  transition. 

6.  Select  the  compute  reliability  menu  item. 

B.  EXAMPLES 

The  following  examples  illustrate  direct  interactive 
SURE  sessions.  The  actual  graph  is  given  first  then  the  SURE 
program  analysis.  The  final  results  are  simulations  since 
the  computation  module  which  calculates  the  upper  and  lower 
bounds  is  still  being  debugged. 
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1 ■   Example  1 

This  session   illustrates    direct  interactive  input 
of  a  simple  semi-Markov  model  (see  Figure  6.1). 


/-^   LAMBDA*  6  ^/^\       LAMBDA*  5  ^^\ 


(?) 


.0001 

.00001 

1.0 
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♦© 


Figure  6.1   Simple  Model 

The  following  sequence  of  Figures  is  exactly  what  the 
SURE  user  would  see  during  the  execution  of  this  example. 
Figure  6.2  is  the  initial  screen  displayed  when  the  the  Sure 
program  is  selected. 

The  sequence  to  follow  is  not  critical  to  the  operation 
of  the  SURE  program.  It  is  simply  intended  as  a  guideline. 
The  sequence  can  be  rearranged  in  practically  any  order.  The 
user  may  add  states  at  any  time  during  the  initial  diagram 
description.  If  during  the  process  of  describing  the 
graphical  model  a  constant  is  changed,  that  defines  a 
transition,  the  model  will  not  display  the  change  but  the 
program  will  use  the  latest  value  of  the  constant  in  it's 
computations . 
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Desk  File  Scr-Options  Sure-Options 


uijhiiiii'ii:*:1 


SURE  DATA  UINDOU 


Uelcone  to  Sure  an  interactive  CAD 
tool  origionally  written  by  Ricky  Butler 
of  NASA  Langley  and  rewritten  by  Major 
John  c  Bordeaux  for  use  on  a  personal 
conputer,  Jo  nake  a  nenq  selection  wove 
the  arrow  into  the  tyeny,  the  Menu  wilJ 
will  drop  down,  nake  a  selection  by 
by  depressing  the  left  qouse  button  on 
the  iteiipf  your  choice, 

To  continue  depress  left;  button  on  OK. 


Figure  6.2   SURE  Initial  Display 


\ 


Next,  the  constants  for  this  example  are  entered  by 
selecting  enter  constants.  Figure  6.3  illustrates  the 
display  after  all  the  constants  have  been  entered. 
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Figure  6.3   Example  1  Constants 

The  states  are  the  next  items  to  be  added  to  this  SURE 
problem.  As  discussed  earlier  care  must  be  taken  in 
selecting  the   locations  for  the  states.  The  graph  shown  in 
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Figure  6.4   was  produced   while  trying   to  keep   in  mind  the 
graph  depicted  in  Figure  6.1. 


Desk  File  Scr-Options 


Sure-Options 

ME— 


Figure  6.4   Example  1  States 
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After  the  states  have  been  entered,  the  transitions  are 
entered  as  discussed  in  Chapter  five  (5).  The  completed 
graph  is  shown  in  Figure  6.5. 
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Figure  6.5   Example  1  Complete  Graph 

The  next  step  is  to  do  the  calculations.  This  is 
accomplished  by  making  the  menu  selection  labeled  Compute 
Reliability.  The  complete  example  1  results  are  displayed  in 
Figure  6.6. 
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Figure  6 . 6   Complete  Example  1 
(Calculations  have  been  Simulated) 
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2.   Example  2 

The  following  example  illustrates  the  use  of  SURE  to 
solve  a  model  of  a  triplex  system  with  one  spare  (see  Figure 
6.7).  The  plot  reliability  function  is  also  displayed. 
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Figure  6.7   Example  2  Model 


Figure  6.8  shows  the  model  after  it  has  been  entered 
into  the  SURE  program.  Again  note  that  an  effort  was  made  to 
keep  good  alignment  and  to  represent  the  model  as  shown  in 
Figure  6.7. 
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Desk  File  Scr-Options  Sure-Options 
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Figure  6 . 8   SURE  Example  2  Entered 


Figure  6.9  shows  the  completed  example  2  problem.  The 
problem  can  be  saved  for  future  use  by  using  the  functions 
described  earlier  under  the  sub-menu  titled  File. 
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Desk  File  Scr-Options  Sure-Options 
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Figure  6.9   Completed  Example  2 
(Calculations  have  been  simulated) 
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VI 1.   CONCLUSIONS 

A.   SUMMARY  OF  RESULTS 

The  SURE  program  is  a  flexible,  user-friendly, 
interactive  graphical  tool,  modeled  after  the  SURE  program 
developed  by  Ricky  W.  Butler  of  Langley  Research  Center 
Hampton,  Virginia.  The  program  provides  a  rapid 
computational  capability  for  semi-Markov  models  useful  in 
describing  the  fault-handling  behavior  of  fault-tolerant 
computer  systems.  The  only  modeling  restriction  imposed  by 
the  program  is  that  general  recovery  transitions  must  be 
fast  in  comparison  to  the  mission  time.  The  SURE  reliability 
analysis  method  utilizes  a  fast  approximation  theory 
developed  by  Allan  L.  White  of  PRC  Kentron,  Inc. .  These 
upper  and  lower  bounds  are  typically  within  5  percent  of 
each  other. 

Although  the  approximation  theory  does  not  explicitly 
deal  with  semi-Markov  models  that  are  not  death  processes, 
the  SURE  program  utilizes  simple  path  truncation  strategies 
to  enable  the  analysis  of  such  models. 
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B.   RECOMMENDATIONS 

It  is  recommended  that  additional  work  be  done  on  the 
program  to  remove  the  following  bugs  which  presently  exist 
in  the  program. 

1)  State  locations  are  determined  by  storing  the  pixel 
coordinates  in  a  structure  called  STATE_LOC .  These 
coordinates  are  determined  by  the  location  of  the  mouse  in 
the  picture  window  when  a  state  location  is  specified  by  the 
user.  The  program  will  currently  operate  using  pixel 
locations  of  the  picture  window  when  the  picture  window  has 
not  been  scrolled. 

2)  The  parser  required  to  implement  the  use  of  all  the 
special  constants  has  not  been  included  in  the  listings.  The 
final  listings  will  be  available  on  disk. 

3)  The  GEM  package  currently  uses  a  very  crude  method  of 
writing  to  the  screen.  The  GEM  subroutine  v_gtext( ) , 
requires  all  text  to  be  in  a  character  string.  Additional 
work  should  be  done  to  create  a  better  method  of  displaying 
floats  and  integers. 
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APPENDIX  A 
GETTING  STARTED 

HARDWARE  REQUIREMENTS 

The  recommended   hardware  for  the  SURE  program  is  an  IBM 
PC/XT  or  AT  (or   100%  compatible)  with  512K  RAM,  a  graphics 
card,  and  a  mouse. 
Supported  graphics  card  include: 

-  Monochrome  Hercules  Graphics  Card(TM) 

-  IBM  Color  Graphics  Card  (in  monochrome  mode) 

-  IBM  Enhanced  Graphics  Card 

Supported  mice   are   PC   Mouse   by   Mouse   Systems (TM),   the 
Microsoft  Mouse,  Summary  graphics  Tablet,  and  keyboard. 

SOFTWARE  REQUIREMENTS 

In  order  to  use  SURE  you  must  have  the  GEM  Programmer's 
Toolkit (TM)  installed  on  your  machine.  To  install  the 
software  on  your  IBM  PC/XT  or  AT,  follow  the  instructions 
included  with  GEM,  or  do  the  following: 

1.  Load  DOS  into  your  computer. 

2.  Place  the  GEM  SYSTEM  MASTER  in  drive  A,  type  GEMPREP, 
and  press  ENTER.  Follow  the  instructions  carefully, 
answering  any  questions  you  are  asked. 

3.  Create  a  subdirectory  called  TOOLS  and  copy  the  disks 
with  GEM  PROGRAMMER'S  TOOLKIT  to  that  area. 

4.  Copy  the  SURE  program  disk  into  that  area. 
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The  items  listed  below  are  required   for  the  user  who 
wishes  to  edit  the  SURE  program. 

-  PC  DOS  version  2 . 0  or  higher 

-  the   lattice   C   compiler  (the  user  may  use  another 
compiler   but   extensive   rewriting   of    the   GEM 
bindings  may  be  required) 

-  an  assembler,  linker,  and  librarian  such  as  those 
provided  in  DR  Assembler  Plus  Tools  (RASM-86, 
LINK-86,  LIB-86) 


USING  SURE 

The  SURE   application  can   be  executed  by/from  the   GEM 
Desktop,  by  doing  either  of  the  following: 

-  Double-click  on  the  SURE  icon. 

-  Select   the   SURE   icon   and   then   choose  the  Open 
command  from  the  File  Menu. 

Note:   An  icon  is  a  GEM  symbol. 
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APPENDIX  B 


FRONT  END  OF  SURE  LISTING 

The  SURE  routines  that  contain  the  code  required  to 
manage  the  windows  and  menus  are  contained  in  this  Appendix. 
The  code  was  developed  by  using  a  example  of  an  application 
that  came  with  GEM  called  Demo.  Considerable  modification  of 
the  original  code  has  taken  place.  Most  of  the  code 
conversion  was  done  to  add  the  second  window  called  the  data 
window.  The  window  called  the  picture  window  was  referred  to 
as  the  work_area  in  the  demo  program. 

Demo  contains  several  routines  which  are  not  currently 
being  used  by  SURE.  These  routines  were  retained  for  future 
development  of  the  SURE  program. 


56 


IX 

Author: 

MAJOR  JOHN  C.  BORDEAUX  U.S.M.C. 

IX 

PRODUCT: 

MARKOV  ANALYSIS  TOOL 

It 

Module: 

REVISION  OF  DEMO,  Version  1.1, FROM  DRI 

IX 

Version: 

APRIL  1986 

it 

ii)imuiii!!tititiiuiiitiii!iiiiiiMiuiiiuinniitiiiiiiitiitMH. 
It  File:  SURE.C  1/ 

/smttmmmmmftttmttmtmtmtmtmtmmtmmmstst 

it  x 

It  SSSSSS  UU   UU  RRRRR  EEEEEE  t 

It  SS  UU   UU  RR  RR  EE  t 

It  SSSSSS  UU   UU  RRRRR  EEEEEE  X 

IX                                SS  UU   UU  RR  RR  EE  I 

It  SSSSSS  UUUUU  RR  RR  EEEEEE  X 

IX  X 

liiuitiiuiniiiitiiuiiitjiuiiUimituiHutuniiiiiiisjimiiii 


.uiuHiiiiUiuuiiiunifUiuiiuiiiiiiiutiiutiiiHiiiiimuiiii 

X 
X 
X 
X 
X 
IXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


IX X! 

IX      includes  XI 

j% %i 

linclude  "pcrtab.h"  IX  portable  coding  conv     XI 

♦include  "sachine.h"  It  machine  depndnt  conv      1/ 

♦include  "obdefs.h"  It  object  definitions       XI 

♦include  "treeaddr.h"  It  tree  address  iacros       ti 

♦include  "geabind.h"  It  ges  binding  structs       XI 

♦include  "sure.h"  It  SURE  apl  resource       1/ 

♦include  "iath.h8 

♦include  "liuits.h" 

♦include  "optstrct.r>B 

Itti  IX  file  onsets  ti 


!t 1/ 

IX    defines  XI 

H %f 

♦define  MAXSTATE  100 

♦define  HAXTRANS  200 

♦define  ARROW  0 

♦define  HOURJLASS  2 

♦define   DESK       0 

♦define   END_UPDATE   0 
♦define   BEG  UPDATE   1 
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♦define 

PENJNK 

BLACK 

♦define 

PENJRASER 

WHITE 

♦define 

PEN.FINE 

1 

♦define 

pen'medium 

c 
J 

♦define 

PElf  BROAD 

9 

♦define 

tjw 

0x0100 

It   extended  object  types 

tl 

♦define 

im 

0x0200 

It   used  with  scrolling 

tl 

♦define 

X~SEL 

0x0300 

It   selectors 

t! 

♦define 

N  COLORS 

15L 

♦define   YSCALE(x)  UHUL_DIV(x,  scrn.xsize,  scrn.ysize) 


♦define 

TE_TXTLEN(x)  (x  +  24) 

♦define 

Blj'DATA(x)   (x) 

♦define 

BIJBix)     (x  +  4! 

♦define 

Bl_HL(x)     (x  +  6) 
♦/ 

/  * 

it 

it 

SURE  VARIABLES       »/ 
*/ 

extern 

WORD   TIME;           / 

1  aission  time 

1/ 

extern 

WORD   POINTS;          / 

t   nuaber  of  points  plotted 

XI 

extern 

L0N6   PRUNE;           ! 

t   deactivate  th  prunning 

tl 

extern 

WORD   WARNDIG;         / 

t   set  ub  ace.  to  two  digits 

tl 

extern 

WORD   TRUNC;           I 

t   set  loop  traversals  at  3 

tl 

extern 

WORD   LBFACT;          / 

t   sets  the  Ki  and  Kj  =  20 

t! 

extern 

WORD   LIST;           I 

t   sets  the  basic  output  level 

tl 

double 

speciow  =  -1;          / 

t   variable  range  value 

t! 

double 

spechigh  =  -1;          / 

t   variable  range  value 

tl 

BOOLEAN 

erun;                / 

1  runtine  errors  flag 

tl 

BOOLEAN 

nonlinear=FALSE;         I 

t   nonlinear  flag 

tl 

double 

specval;             / 

t   special  variable  value 

tl 

double 

ubfail;              i 

t   prob  of  systes  failure 

tl 

double 

lb-fail ;              , 

t   lower  bound  of  failure 

tl 

WORD 

ydata  =  1;            / 

t   Current  data  line 

tl 

WORD 

runno=0;             / 

t  run  nuiiber 

tl 

WORD 

pathcount  =  0;         l\ 

nusber  of  paths 

tl 

WORD 

cnttrunc  =  0;          l\ 

nuaber  of  loops  truncated 

tl 

WORD 

cntprunE  =  0;          !\ 

nusber  of  paths  pruned 

tl 

WORD 

bigst  =  1;           /I 

largest  state  entered  sd  far 

tl 

double 

e_of_t;              l\ 

1  E(T)  computation  result 

tl 

double 

e_of_t_del;           /I 

i  E(T-t)  coaputation  result 

tl 

BOOLEAN 

et_bad  =  FALSE;        /I 

I  EfT)  coap.  is  inaccurate 

tl 

BOOLEAN 

rec_slow  =  FALSE;       /I 

recovery  too  slow 

tl 

BOOLEAN 

std.big  =  FALSE;        l\ 

1  Rec  Std.  too  big 

tl 

BOOLEAN 

rate_big  =  FALSE;       l\ 

I  Exp.  rate  too  fast 

t! 

WORD 

i; 
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double 
double 
WORD 


pi  al pha; 

lowb-fjowbg; 
nu«  states  = 


IX  product  of  the  alphas  XI 
it  interaediate  results  XI 
l\   nuiber  of  states  enterec    XI 


1%       External  Functions      XI 
ft --XI 

EXTERN  LONG   dos.allocO; 

ft XI 

IX         Global  Data  Structures  Xi 
IX -XI 

STATE.LOC   state_array[MAXSTATE3; 

ninniniunnntumnimnnniinnnutmtMintiiinnnui 
/itmmmmmmmmmmtmmsnmmnmmmtmtmtst/ 

IXXXX  XXXXI 

IXXXX  Data  Structures  XXXXI 

IXXXX  XXXXI 

axxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxi 

itniiitiiitiiiiiiiiiuiiiiuminuuiiutiiiiiuuiiiainuiiuiii; 


IX 

--XI 

It      1 

ixtrni  Data  Structures 

XI 

/* 

*  ; 

/  * 

11 

EXTERN 

'JWORD   DOS.ERR; 

EXTERN 

LONG   drawaddr; 

ft 

-XI 

It 

Global  Data  Structures 

X! 

n 

,  / 

/ 1 

»/ 

GLOBAL 

WORD   contrHll]; 

IX 

control  inputs 

Xi 

GLOBAL  WORD   intintBOlj 

IX 

aax  string  length 

XI 

GLOBAL 

WORD   ptsin[256]; 

IX 

polygon  till  points 

Xi 

GLOBAL 

WORD   intout[453; 

IX 

open  workstation  output 

XI 

GLOBAL  WORD   ptsout[l23; 

It 

-XI 

IX        \ 

.ocal  Data  Structures 

Xi 

IX 

--XI 

WORD 

gl_wchar; 

IX 

character  width 

Xi 

WORD 

gl_hchar; 

IX 

character  height 

X! 

WORD 

gl _wbox ; 

IX 

box  (cell!  width 

Xi 

WORD 

gl_hbox; 

IX 

box  (cell)  height 

XI 

WORD 

gl_hspace; 

IX 

Ht.  of  space  between  lines 

XI 

WORD 

gea_handle; 

IX 

GEH  vdi  handle 

XI 

WORD 

vdi_handle; 

IX 

SURE  vdi  handle 

XI 
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WORD   work_out[573; 

WORD   cur  tit  =  FULLITEH; 


IX   open  virt  workstation  values!/ 
IX   type  of  trnsfmin  effect    Xl 


GRECT 


icrn  drsti; 


BRElT  CUrr_wr,r,. ; 

GRECT  pict_v*ork; 

GRECT  data_work; 

GRECT  pict_rect; 

GRECT  data  rect: 


IX   work  arei   of  current  window   1/ 
/t  work  area  of  'picture'  window  t< 

it   work  area  of  'picture'  window  XI 


SRECT  curr_urido; 
GRECT  pictjinrio; 
GRECT   data  undo; 


GRECT   pict_prev_undo; 

GRECT   data  pres-  undo; 


IX   save  area  for  f ull/unf ulling  1/ 


WQSB 

ql_rasgL 

«; 

IONS 

ad  risQi 

LONG 

glsenu; 

WORD 

gl_apid; 

WORD 

gfxfull 

WORD 

gl.yfull 

MQRD 

ql _H+ui 1 

WORD 

ql'htull 

WORD 

scrn_wi dth ; 

WORD 

5crn_height; 

WORD 

scrn_pianes; 

WORD 

scrn_xsize; 

WORD 

scrnjysize; 

UWORD 

(n_aut  =  FALSE; 

WORD 

ev_which; 

UWORD 

mousex,  mousey; 

UWORD 

bstate,  bclicks; 

UWORD 

kstate,  kreturn; 

KFD3 

curr_ffildb; 

HFDB 

pictmt db ; 

HFDB 

data  isfdb; 

KFDP 

scrnmfd 

3j 

message  buffer  XI 

LONG  pointer  to  lessage  btr  XI 

ienu  tree  address  XI 

application  ID  XI 

full  wmdow  'x'  X! 

full  window  'y'  XI 

full  window  'w'  XI 

full  window  'h'  XI 

screen  width  in  pixels  XI 

screen  height  in  pixels  XI 

number  of  color  planes  Xi 

width  of  one  pixel  XI 

neignt  of  one  pixel  XI 

mouse  in/out  of  window  flag  XI 

event  multi  return  state(s)  XI 

mouse  x,y  position  XI 

button  state,  V   t  of  clicks  XI 

key  state  and  keyboard  char  XI 


LONG  size_pict_mfdb; 

LONG  size_data_«fdb; 

LONG  ioc_pict_*fdb; 

LONG  loc  data  atfdb; 


WORD  curr_hndl; 
WORD  pict_hndlj 
WORD   data  hndl; 


IX   SURE  window  handle        1/ 
IX   SURE  data  window  handle    XI 
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WORD 

SURE.shade  = 

PENJNK; 

IX   SURE  current  pen  shade 

XI 

WORD 

pen.shade  =  PENJNK; 

It   saved  pen  shade 

X! 

WORD 

SURE_pen  =  5; 

It   SURE  current  pen  width 

XI 

WORD 

radius  =  16; 

It   radius  of  state 

XI 

WORD 

SURE .height  = 

■  4; 

It   SURE  current  char  height 

t! 

WORD. 

char  Jine; 

IX   character  height  for  tine 

ti 

WORD 

charfflediuff:; 

IX   character  height  for  aediusi 

t! 

WORD 

char_broad; 

IX   character  height  for  broad 

tl 

WORD 

aonuaber  =  5; 

IX   louse  fori  nuaber 

tl 

LONG 

aofaddr  =  Ox  t 

M-; 

IX   souse  fora  address 

tl 

WORD 

■f  i  Ie_handl  e; 

IX   file  handle  ->  pict  ld/sv 

t! 

BYTE 

•f  ile_na*e[64; 

.  no. 

IX   current  pict  file  naae 

tl 

BOOLEAN 

keyjnput; 

IX   key  inputting  state 

t! 

WORD 

key_xbeg; 

IX  i   posit  for  line  beginning 

tl 

WORD 

key_ybeg; 

IX   y  posit  for  line  beginning 

t! 

WORD 

key_xcurr; 

IX   current  x  position 

ti 

WORD 

key_ycurr; 

IX   current  y  position 
IX   SURE  window  title 

ti 
ti 

BYTE 

twdw_t i tie  = 

"  SURE  PIC1 

fURE  WINDOW  "; 

BYTE 

twdw  tdata  = 

"  SURE  DATA  WINDOW  ': 

WORD    usercolor[21  =  (1,  0); 
HFDB   userbrush_afdb; 
USERBLK  brushubm; 
LONG   color _sb1EN_C0L0RS+1]  =  { 

N_C0L0R5,~ 

Ox31FF1071L, 

0x32FF1072L, 

0x33FF1073L, 

0x34FF1074L, 

Ox35FF1075L, 

0x36FF1076L, 

0x37FF1077L, 

0x38FF1078L, 

0x39FF1079L, 

0x41FF107AL, 

0x42FF107BL, 

0x43FF107CL, 

0x44FFI07DL, 

0x45FF107EL, 

0x46FF107FL>: 


IX   data  for  scrolling 
IX   color  bar 


XI 

Xi 


It- 

It 
it- 


House  Data  Structures 


■XI 

ti 
■ti 


WORD   erase  broad[37]  = 

{ 

7,  7,  1,  0,  1, 

0x0000,  0x0000,  0x0000,  0x0000, 

0x0000,  OxlffO,  OxlffO,  OxlffO, 


it   aouse  fora  for  Droad  eraser  XI 


It   aask  for  broad  erase 
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HGRD 
{ 


); 

WORD 


OxlffO,  OxlffO,  OxOOOO,  0x0000, 

0x0000,  0x0000,  0x0000,  0x0000, 

0x0000,  0x0000,  0x0000,  0x0000, 

0:<7ffc,  Ox  600c,  Ox 600c,  Ox 600c, 

0x600c,  0x600c,  0x7ffc,  0x0000, 

0x0000,  0x0000,  0x0000,  0x0000 

erase_*ediui[37]  = 

7,  7,  1,  0,  i, 

0x0000,  0x0000,  0x0000,  0x0000, 

0x0000,  0x0000,  Ox07c0,  0x07c0, 

0x07c0,  0x0000,  0x0000,  0x0000, 

0x0000,  0x0000,  0x0000,  0x0000, 

0x0000,  0x0000,  0x0000,  0x0000, 

0x0000,  OxlffO,  0x1830,  0x1830, 

0x1830,  OxlffO,  0x0000,  0x0000, 

0x0000,  0x0000,  0x0000,  0x0000 

erase  fine[37]  = 


1%   data  for  broad  erase      1/ 


It   aoase  tori  {or  tedium  eraser!/ 


IX   task  for  lediut  erase     XI 


IX   data  for  sediui  erase     XI 


IX   iouse  ton  tor  fine  eraser  XI 


>; 


7,  7,  1,  0,  1, 

0x0000,  0x0000,  0x0000,  0x0000, 

0x0000,  0x0000,  0x0000,  0x0100, 

0x0000,  0x0000,  0x0000,  0x0000, 

0x0000,  0x0000,  0x0000,  0x0000, 

0x0000,  0x0000,  0x0000,  0x0000, 

0x0000,  0x0000,  0x07c0,  0x06c0, 

0x07c0,  0x0000,  0x0000,  0x0000, 

0x0000,  0x0000,  0x0000,  0x0000 


It  nasi  for  fine  erase 


IX  data  for  fine  erase 


1/ 


inuuiufitumimmmiinmintmimmnuuuuummju 

tinimtitniiiitiiiuiimiiitiitiimiiHiUtiniiiniiituiiium' 
ixxxx  tut  J 

/MM       Local  Procedures  XXXXI 

IXXXX  XXXXI 

lummtuutmuuuuuuuuuuttutumutuutututuuuut! 

njuumtumimHnniuumnntnummmnuniuiJUiun 


It 

—  XI 

It            sin 

XI 

it 

■--♦/ 

WORD 

mn (a,  b) 

MORS   a,  b; 

{ 

return!  (a  < 

:  b)  ?  a 

b  ) 

It  return  Bin  of  two  values 


tl 
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IX — -»/ 

IX            »ax  t! 

IX— -- XI 

WORD 

»ax(a,  b)  ft   return  iax  of  two  values   1/ 

WORD   a,  b; 

i 

return!  (a  >  b)  ?  a  :  b  ) ; 
} 


It XI 

It             reverse  tl 

IX a 

reverse(s)  It   reyerse  string  s  in  place   1/ 


BYTE   sU; 


WORD   c,i,j; 

for  ii=0,  j=strl en (s) -1 ;  l  <  j;  i++,j— 1 

{ 


c  =  stiJj 

sCil  =  sC j  J ; 

5tj]  =  Cj 

} 

} 

IX    reverse  tl 

IX 

—tl 

It            itoa 

tl 

IX 

—  XI 

itoafn,  s) 

IX 

convert  n  to  characters  in  sX! 

BYTE   s[J; 

WORD   n; 

{ 

WORD   i,  sign; 

i-f  ((sign  =  n)  <  0) 

IX 

record  sign            XI 

n  =  -n; 

IX 

sake  n  positive          tl 

i  =  0; 

do  { 

IX 

generate  digits  in  reverse  XI 

s[i++]  =  n  I   10 

+ 

'0' 

\ 

IX 

order,  get  next  digit      XI 

}  while  (In  /= 

10) 

> 

01; 

IX 

delete  it             tl 

if  (sign  <  0) 

sli++3  =  '-'; 

5[i]  =  '\0J; 

reverse(s); 

It   itoa  1/ 
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/t 1/ 

/*     atot(s)  XI 

IX XI 

double 

atof(s)  IX   Convert  string  5  to  double  XI 

BYTE   =[]; 

{ 

double   val,  power; 

WORD    i,  sign; 

for  (  i=0;  sti]=='  '  !!  s[i]=='\n'  !!  5ti]=='\t';  i++! 

;  IX   Skip  white  space         XI 

sign  =  1; 
it   (sfi]  ==  7+'  i!  sii]  ==  '-')   IX   Sign  XI 

sign  =  (511++]=='+')  ?  1  :  -1; 
for  ival  =  0;  stiJ  >=  70'  M  sii]  <=  '9';  1++) 

val  =  10  X   val  ♦  s[i3  -  '0'; 
if  (sEil  ==  '.'1 

i++; 
for  (power  =  1;  s[i]  >=  '0'  \A   sLil  <=  '9';  i++) 

{ 

val  =  10  X   val  +  s[i]  -  '0'; 

power  t=  10; 

i 
/ 

return (sign  t  val  /  power); 

3  IX   atoffsi  1/ 


/*-— 

IX             string_addr 
/+ 

-XI 

XI 

-t  1 

LONG 

string_addr (which! 

H0RD  "  which; 

t 

1/ 

IX   retur 

LONG   where; 

rsrc_gaddr(R_STRING, 
return  (where); 
} 

whi 

ich, 

twhere); 

IX   returns  a  tedinto  LONG  string  addr  XI 
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/I     rc_equal 

XI 

WORD 

rc_equal (pi,  p2) 

GRECT   tpl,  tp2; 

{ 

if  Upl->g_x  !  = 

=  p2-: 

g_x)  !! 

(pl->9_y 

=  P2" 

>g_y)  1 

i 

i 

(pl->g_w 

=  p2- 

>g_w)  ! 

i 

(pl->g_h 

=  P2" 

/q_h)) 

retur 

n  (FALSE); 

return (TRUE!; 

IX   tests  -for  two  rectangles  equal  \l 


ix 

— tl 

It            fc_copy 

XI 

;* 

t  / 

VOID 

rc_copy(psbox,  pdbox ) 

It   c 

BRECT   Ipsbox; 

BRECT   tpdbox; 

{ 

pdbox->g_x  =  psbox->g_x; 

pdbos->cj_y  =  psbox->g_y; 

pdbox-  >y_ii  =  psbox->g_w; 

pdbox->g_h  =  psbox->g_h; 

IX   copy  source  to  destination  rectangle  X: 


IX - 

IX  rc_intersect 

IX 1 

HORD 

rc_intersect(pl,  p2) 
GRECT       tpl,  tp2; 
{ 

WORD        tx,  ty,  t»,  th; 


■tl 

XI 
■Xi 


'X  cospute  intersect  q*  two  rectangles!/ 


tw  =  iin!p2->g_x  +  p2->g_w,  p  1  - > g _ x  +  pl->g_w); 

th  =  9iin(p2->g_y  +  p2->g_h ,  p  1  - > g _ y  +  pl->g_h); 

tx  =  «ax(p2->g_x,  pl->g_x ) ; 

ty  =  iax(p2->g_y,  pl->g_y); 

p2->g.x  =  tx; 

p2->g_y  =  ty; 

p2-/g_w  =  tw  -  tx; 

p2->g_h  =  th  -  ty; 

return!  (tw  >  tx)  M  (th  >  ty)   !; 
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ft   determine  it  x,y  is  in  rectangle  XI 


,X 1/ 

It            inside  XI 

It — XI 

UWDRD 

insideix,  y,  pt) 
UHORD         x,    y; 
BRECT        Ipt; 
{ 

if   (   (x  >=  pt->g_x!  &Si  (y  >=  pt->g_y 3  k%. 

(x  <  pt->g_x  +  pt->g_w)  &&  (y  <  pt->g_y  +  pt->g_h)  i 
return (TRUE); 
else 

return (FALSE!; 
}  It   inside  XI 


It 

IX 

it 

VOID 
grect_t 

grect" 

WORD 

{ 

tar 

tar 

tar 
tar 


grect_to_array 


o_array(area,  array! 
tarea; 
tarray; 


■XI 

XI 

■t/ 


it   convert  x,y,n,h  to  upr  It  x,y  and  1/ 
ft   lwr  rt  x,y  t! 


ray++  =  area->g_x; 

ray*+  =  area->g_y; 

ray++  =  area->g_x  +  area->g_n  -  1; 

ray  =  area->g_y  +  area->g_h  -  1; 


IX- 


- 1/ 

IX             rast_op  */ 

H Xj 

VOID 

rast_op(sode,  s_area,  s_sfdb,  d_area,  da-f  db  ■  It   bit  block  level  trns  t) 

WORD   eode; 

GRECT   ts_area,  td_area; 

MFDB   ts_«fdb,  Id'ifdb; 


WORD   pxyEB]; 

grect_to_array!s_area,  pxy); 
greet _to_arr ay (d_area,  &pxy[4]); 
vro_cpyf»(vdi_handle,  lode,  pxy,  s_«+db,  dm^f db ) ; 
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n 

■ — XI 

it            vdi_fix 

XI 

1 1 

VOID 

vdi_fix (p-fd,  theaddr,  wb. 

,  h) 

"MFDB   Ipfd; 

LONG   theaddr; 

WORD   wb,  hj 

p -f d- >-f ww  =  wb  >)  1; 

p-fd->-f np  =  «b  <<  3; 

pfd-Mh  =  h; 

pfd->np  =  i; 

p-fd->ep  =  theaddr; 

} 

;* _. 

i  / 

IX            vdi_trans 

/* 

XI 

<  ; 

WORD 

vdi_trans(saddr,  swb,  daddr, 

dwb,  hi 

LONG   saddr; 

WORD   swb; 

LONG   daddr; 

WORD   dwb; 

WORD   h; 

MFDB   src,  dst; 

vdi_fix(lisrc,  saddr, 

swb. 

,  h); 

src~H  =  TRUE; 

vdi_fix(&dst,  daddr,  dwb,  h); 
dst.H  =  FALSE; 
vr_trnfi(vdi_handle,  isrc,  ttdst 


It— 

1! 

IX             tr 

ans_gi  mage 

X! 

/+ 

i  / 

i  j 

»/ 

VOID 

tran5_gi  sag 

e(tree,  obj) 

LONG 

tree; 

WORD 

objj 

{ 

LONG 

taddr,  obspec; 

WORD 

wb,  hi; 

obspec  =  LLGET (OB_SPEC (obj ) ) j 
taddr  =  LLGET  <  B I _PDATA (obspec )) ; 

wb  =  LWGET!BI_WB(Dbspec!!; 
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hi  =  LWSETiBI_HL(obspec>); 
vdi_trans (taddr ,  Mb,  taddr,  wb,  hi); 


} 


n %i 

IX  do  open  XI 

ix :- xi 

VOID 

do  open  inn,  org_x,  org  y,  x,  y,  w,  h)  IX   grow  and  open  specified  wdw  XI 

WORD   wh; 

WORD   org_x,  orgy; 

WORD   x,  y,  n,  h; 

\ 

grat"_groNboxiorg_x,  org_y,  21,  21,  x,  y,  m,  h); 

wind_open(wh,  x,  y,  h,  h); 
} 


ix 

- — XI 

IX            do  close 

XI 

/* 

*  / 

/  ♦ 

VOID 

do_cicse!wh,  org_x,  org_y) 

/ 

WORD   wh; 

WORD   org_x,  org_y; 

{ 

WORD   x,  y,  h,  h; 

IX   close  and  shrink  specified  window  XI 


mnd_getiwh,  WF_CKYWH,  ix,  &y,  In,  &h); 

wind_close!wh!; 

graf_5hrinkbox(org_x,  org_y,  21,  21,  x,  y,  w,  h); 


IX — - XI 

IX           set_clip  XI 

IX — XI 

VOID 

5et_clip(clip_tiag,  s_area) 
WORD   ciipjlag; 
GRECT   ts_area; 


IX   set  clip  to  specified  area  Xi 


WORD    pxy[4]; 

grect_to_array!s_area,  pxy); 
V5_cl:p (vdi _handle,  cl ip_-f lag,  pxy); 
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/» 

-XI 

It             dra*_rect 

XI 

t  I 

VOID 

dra«_rect(area! 

GRECT   tarea; 

{ 

WORD 

p  x  y  C 1 0  ] ; 

pxyEOl 

=  area->g_x; 

pxy[13 

=  area->g_y; 

pxyt2] 

=  area->g_x 

+  area- 

>9_w  -  t; 

pxy[3] 

=  area->g_y 

+  area- 

>g_h  -  1; 

pxy[4] 

=  pxyt21i 

pxyC5] 

=  pxy[33; 

pxyC3] 

=  pxyCll; 

pxy[£] 

=  pxytOl; 

pxy[7] 

=  pxy[5]j 

pxyC8] 

=  pxyfOl; 

pxy[9] 

=  pxyCU; 

v_plint 

■ (vdi_handl b. 

5,  pxy 

)• 

it- 
it 

it 

WORD 
align_x(x) 

WORD   x; 


align_x 


■XI 

X! 

■a 


it   forces  word  alignieent  tor  colusn  position  XI 
IX      rounding  to  nearest  word  X! 


return ((x  k   Oxf-f-fO)  +  (ix  k   0x000c)  ?  0x0010  :  0)); 


iiiHiiiuiintitntiiiiutntiiUumiiiiiiiimiiiiinitiinmn 
/tmiimnmiuinuuiuiiumimtitiimtttnttunimmmi 
itttt  tx 

IXXXX  Advanced  Dialog  Handling  It 

Itttt  XX 

/ttitntttmmmtmmmnntntmtmtmttmmttttmmm 

luntioHiiiuuiuinintiniitiiiiutHmiiiiiimnKuiuiui 


it- 


XI 

IX      set  select  XI 

ft 1/ 

VOID 

set_select(tree,  obj,  init_no,  bind,  arry) 

LONG      tree,  bind!],  arryri; 

WORD      obj,  initjioj 
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WORDn,  nobj,  cobi ,  count; 

indir_obj (tree,  obj); 
bindtO]  =  LLGET(OB_SPEC(obj)); 

LLBET(OB_SPEC(obj),  ADDR(bind) ) ; 
bindtl]  =  ADDRiarry); 

n  =  (WORD)  arrytO]; 

count  =  0; 

for  (cobj  =  U6ET(QB_HEAD(obj));  cobj  !=  obj; 

cobj  =  LKGETiGBJEXTicobji)) 

{ 

indir_obj (tree,  cobj); 

LLSET(QB_SPEC(cobj),  ADDRi  larrytcount  +  1]  J); 

count  =  (count  +  1)  X  n; 
} 

nobj  =  LHGET(OB_NEXT(obj)); 

indir_obj (tree,  nobj); 

LLSEtT0B_SPEC (nobj > ,  ADDRi  iarryfl  +  init.no  X  n]  ))■ 


It — 

IX            get_select 

/♦ 

— XI 

XI 
i  / 

/* — 

KQRD 

qet_select (tree,  obj) 
LONG   tree; 
WORD   obj; 

—  1/ 

X 

WORD   nobj,  cobj; 
LONG   bind,  arry,  teap; 

bind  =  LLSET(GB_SPEC(obj!); 
dirob j (tree,  obj); 
LLSET(OB_SPEC(obj),  LLGET(bind)) ; 
arry  =  LLGETfbinG  +  sizeo-f  (LONG)  ); 

for  (cobj  =  LWGET (0B_HEAD ( ob j > ) ;  cobj  !=  obj; 
cobj  =  LHGET(GB_NEXT(cobj))) 

; 
\ 

dir_obj (tree,  cobj); 

LLSET (0B_SPEC (cobj ! ,  LLGETiLlGET (OB_SPEC(cobj ) ) ) 1 ; 
} 

nobj  =  L«6ET(0B_NEXTiobj!!; 

dir_obj (tree,  nobj); 

teap  =  LLGET!OB_SPEC!nobj);; 

LLSET(OB_SPEC(nobj),  LLGET(tesp) ); 

return  (WORD!   (teisp  -  arry)  /  sizeof(LONG)  -  1; 
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/I 

!i            aove_do 

XI 

t/ 
i  / 

/ » 

VOID 

*ove_do(tree,  obj, 

inc! 

LONG   tree; 

WORD   obj,  inc; 

WORD   cobj; 

LONG   n,  bind,  arry,  liiit,  obspec; 

obj  =  get_parent(tree,  obj); 
obj  =  LHBET(OB_NEXT(obj))j 
bind  =  LLSET(GB_SFEC!obji); 
arry  =  LLGET  (bifid  +  sizeof  (LDNB) ) ; 
n  =  LLBET(arry)  X   sizeof <LQNS); 
liiit  =  arry  +  n; 

for  (cobj  =  LH6ET(0B_HEAD(obj));  cobj  !=  obj; 

cobj  =  LWGET!GB_NEXT(cobj))) 

\ 

obspec  =  LL8ET(0B_SPEC(cobj)i; 

obspec  +=  inc  t  sizeof (LONG) ; 

while  (obspec  <=  arry  II  obspec  >  limit! 

obspec  +=  n  t   ((obspec  >  litit)?  -1:  1); 

LLSET(QB_SPEC(cobj),  obspec); 


redraw_doltree,  obj); 


/* — 

XI 

It             redraw  do 

XI 

;* 

i  / 

/*                 

»,' 

VOID 

redraw_do(tree,  obj) 

LONG   tree; 

WORD   obj; 

{ 

GRECT      o; 

objc_>:ywh(tree,  obj,  fco); 

o.g_x  -=  3;  o.gy  -=  3;  o.g_w  +=  6;  o.g_h  +=  6; 

objc_draw(tree,  ROOT,  HAX_DEPTH,  o.gj,  o.g_y,  o.g_w,  o.g_h); 
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ix 

XI 

It           xtend_do 

xi 
*  i 

WORD 

xtend_do(tree,  obj, 

xtype) 

L0N3   tree; 

MORE   obj,  xtype; 

i 

LONG   obspec; 

switch  (xtype!  { 
case  XSEL: 

obspec  =  LLGET(OB_SPEC!obj)); 

obj  =  get_parent(tree,  obj); 

obj  =  LWGET(OB_NEXT(obj)); 

LLSET!OB_SPEC(obj),  obspec); 

redra*_do(tree,  obj); 

break; 
case  X_FHD: 

»ove_dD(tree,  obj,  1); 

redraw_do(tree,  obj); 

break; 
case  X_BAK: 

»ove_dD(tree,  obj,  -1); 

redraw_do(tree,  obj); 

break; 
default: 

break; 
} 
return (FALSE); 


IX- 


■XI 

XI 

■X! 


IX  hndl_dial 

H 

WORD 

hndl_dial(tree,  def,  x,  y,  w,  h) 

LONG   tree; 

WORD   det; 

WORD   x,  y,  h,  h; 

\ 

WORD   xdial,  ydial,  wdial,  hdial,  exitobj; 

WORD   xtype, i , j ; 


*ors_center (tree,  Scxdial ,  fcydial,  fewdial,  fehdial); 
foridiaKO,  x,  y,  h,  h,  xdial,  ydial,  Hdial,  hdial); 
tom_dial (1,  x,  y,  h,  b,  xdial,  ydial,  Hdial,  hdial); 
objc.drawftree,  ROOT,  MAX_DEPTh,  xdial,  ydial,  Hdial,  hdial); 
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FOREVER 

exitobj  =  ^ordido  (tree,  det!  S<  0x7FFF; 
xtype  =  L«6ET(0B.TYPE(exitobj>)  tt  OxFFOO; 
if  (Ixtype) 

break; 
if  (xtend_do(tree,  exitobj,  xtype)! 

break; 
} 

■for «_d i a  1  < 2 ,  x,  y,  w,  h,  xdial,  ydial,  wdial,  hdial); 
Foradial (3,  x,  y,  w,  h,  xdial,  ydiai,  Hdial,  hdial); 

return  (exitobj); 


n 

ft            dr_code 

;* 

XI 

Xi 
*  / 

n 

MORS 

dr_code(pparis) 
LONG   pparss; 

T 

»/ 

PARHBLK   pb; 

WORD     pxyfiO],  h 

LONG     taddr; 

1,  Hb; 

LBCOPY(ADDR(fcpb),  pparns,  sizeof (PARHBLK)); 

set_clipiTRUE,    (BRECT  tl  ipb.pb_xc); 

taddr  =  pb.pb_para; 

userbrush_afdb.tp  =  LLGET(BI_PDATA(taddr)); 
hi  =  LwSET(Bl_HL(taddr!); 
wb  =  LKGET!BI_«B (taddr)); 
userbrush_»fdb.f»»p  =  wb  <<  3; 
userbrush_»fdb.-fww  =  wb  »  1; 
userbru5h_afdb.fh  =  hi; 
userbrush_«fdb.np  =  i; 
userbrush_ifdb.ff  =  0; 

pxytOl  =  pxyti]  =  0; 

pxy[23  =  (wb  «  3!  -  i; 

pxy[3]  =  hi  -  1; 

pxyC43  =  pb. pb_x; 

pxy[5]  =  pb.pb_y; 

pxy[63  =  pxy[4]  +  pb.pb_w  -  1; 

pxy[7]  =  pxyt51  +  pb.pb_h  -  1; 

vrt_cpyfa(vdi_handle,  2,  pxy,liuserbru5h_ifdb,!i5crn_tfdti,  usercoior); 
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l-f '.  (pb.pb_curr5tate'=pb.pb_prevstate) !  I  (pb.pb_currstate&SELECTED) ) 

r 

H  (pb.pb_currstate  &  SELECTED) 

vsl_color(vdi_handle,  1) ; 
else 

vsl_color  ivdi_handle,0) ; 
vsl_width(vdi_handle,  1); 
vsl_type(vdi_handle,  FIS_SOLID ) ; 

pb.pb_x— ; 

pb.pb_y — ; 

pb.pb  _**++; 

pb.pb_h++; 

dra»_recti(GP.ECT  t!  ipb.pbjtlj 
} 

set_clip(TRUE,  Scpict_work) ; 
return  (0); 


} 


itHUiiiiiniiiniiiiiiiiiinimimniiiiiiiHiiiiitiiiiintiiiiili 

niiinititiimuiimntmiiiinHiiiiiitHKiuiiiniiutnutuU; 

ftxxx  xxxxi 

fXXtt  Work  Area  Management  Hit/ 

/till  xxxxi 

ittmtmntnumtunnmnttntummttnnmtttmtttmmtti 

tHitutttnuttnttttnttnttuttttmittutttttutttittttttttttttttti 


ft- xt 

It            set_work  XI 

jX xi 


VOID 

5et_pict_work (slider_update) 

BOOLEAN   5iider_update;        /ledges,  and  updt  sliders  H  req' d  XI 

WORD   i; 

*ind_get(pict_hndl,  WF_WXYWH, 
ltpict_*ork.g_x,ipict_work.g_y,lipict_t»ork.g_H,&pict_tiork.g_h) ; 

pict_undo.g_t»  =  pictwor k . g_w; 
pict_undo.g_h  =  pict_«ork.g_h; 
tit!  It   clasp  work  area  to  page  edges  XI 

pict_undo.gj(  =  align_x(pict_undo.g_x); 
H  ((i  =  pi  ct_m+db.  -f  wp  -  (pictundo.  g_s  +  pi  ctundo.  y_w) )  <  0) 

pict_undo.g_x  +=  i; 
i-f  ((i  =  pi ct _»-f db. -f h  -  (pict_undo.g_y  +  pict_undo.g_h)l  <  0) 

pict_undo.g_y  +=  i; 
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H  (slider_update  ) 
{ 

*ind_set{pict_hndl,  WF_HSLIDE,  UHUL_DIV<pict_undo.__x,  1000, 

pict_*fdb.fwp  -  pict_undo.g_w),  0,  0,  0); 
wind.setfpict.hndl,  KF_VSLIDE,  UHUL.DlVipict_undo.g_y,  1000, 

pi ct_e-f db. f h  -  pict_undo.g_h),  0,  0,  0); 
»ind_set(pict_hndl,  NF_HSLSIZ,  UHUL_DlV(pict_work.g_w,  1000, 

pict_a<db.-fwp),  0,  0,  0); 
wind_5etipict_hr:dl,  WFVSLSI2,  UHUL_DIVipict_work.g_h,  1000, 

pict_ifdb.4h),  0,  0,  0); 

} 

1%  only  use  portion  of  work_!area  on  screen  $/ 
rc_intersect(&5crn_area,  !tpict_work5 ; 
pict_undo.g_H  =  pict_nork.g_w; 
pict_undo.g_h  =  pict_work.g_h; 


} 


VOID 

set_data_work(slider_update! 

BOOLEAN   slider_update;        /ledges,  and  updt  sliders  H   req'd  ti 

{ 

WORD   l ; 

wind_get(data_hndl,  HF_HXYHH, 

idata_«ork.g_x,idata_work.g_y,?(data_work.g_w,yata_work.g_hi; 

data_undo.g_w  =  data_work . q_w; 
datd_undo.g_h  =  data_work.g_h; 
Ittf  it   clasp  work  area  to  page  edges  %! 

data_undo.g_x  =  align_x (data_undo.g_x); 
i-f  ((i  =  data_s-f db . -fwp  -  (data_undo.g_x  ♦  data_undo.g_w))  <  0) 

data_undo.g_x  +=  i; 
i-f  C (i  =  data_nfdb.fh  -  tdata_undc.g_y  +  data_undo.g_h))  <  0) 

data_undo.g_y  +=  i; 

i+   (slider  update  ) 
{ 

nind_set(data_hndi,  WFHSLIDE,  UHUL_DIV(data_undo.g_x,  1000, 

data_af db. -f wp  -  data_undo.g_H),  0,  0,  0; 
nind_set«data_hndl,  WF_V5lIDE,  UNUL_DIV(data_undo.g_y,  1000, 

datajB-fdb.  +  h  -  data_undo.g_h),  0,  0,  0); 
wind_set(data_hndl,  WF_HSLS1Z,  U«UL_DIV(data_work.g_w,  1000, 

data_asf db. -fwp) ,  0,  0,  0); 
wind_set(data_hndl,  MF_VSLSI2,  UHUL_DIV(data_work.g_h,   1000, 

datajufdb.fh),  0,  0,  0); 

} 
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ft   only  use  portion  of  work_larea  on  screen  1/ 
rc_intersect  (It5crn_area,  &data_Hcrk) ; 
data  undo.  g_w  =  datawork  .cj_«; 
dataundo. y_h  =  data_work.g_h; 


} 


It */ 

It             5£ve_work  X! 

IX :  - XI 

VOID 

5ave_pict_uork()  IX  copy  pict_work  to  pict_sfdb  1/ 

I 

BRECT      t«p_area; 

rc_copy  (fcpict_«ork,i<tip_area) ; 

rc_intersect(?<5crn_areal&tap_area); 

o,raf_acuse(K_OFF,  OxOL); 

rast_op(3,  &t«p_area,  &scrn_*{db,  fepictundo,  &pict_nfdb); 

graf_aouse(H_ON,  OxOL); 


VOID 

save_data_«orki)  IX   copy  data_work  to  data_af db  1/ 

{ 

BRECT   tip_area; 

rc_copy(ldata_uork,itsp_area)j 

rc_intersect(fcscrn_area,fctap_area); 

graf_aouse(N_OFF,  OxOL); 

rast_op(3,  &t«p_area,  fescrna-f db,  fcdatajwdo,  fedatajrfdb); 

gra-f _oou5eiM_0N,  OxOL); 


It XI 

IX  restore_work        XI 

ix : 1/ 

VOID 

rst_pict_nork()  It  restore  pict_work  •froa  pict_afdb  1/ 

f 


ii 


BRECT        tap_area; 
rc_copy(tpict_Hork,Uip_area) ; 
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rc_intersect(iscrn_area,&tip_area); 
Qraf_(iou58(M_0FF,  OxOL); 

rast_op!3,  &pict_undo,  fcpict_*fdb,  ?<tsp_area,  &5crn_*tdb); 
graf_nou5e(H_ON,  OxOL); 
} 


VOID 

rst_data_nork()  It   restore  data_work  fro*  data_«fdb  tl 

{ 

GRECT   t»p_area; 

rc_copy({(data_Hork,S:tfflp_area); 

rc_intersect  (i5cm_area,ttt«p_area) ; 

graf_aouse(ri_OFF,  OxOL); 

rast_op (3,  &data_undo,  Scdataa-f c!b ,  &t*p_area,  fescrns-f db) ; 

graf_touse(K_ON,  OxOL); 


/tmmmtumimmmmmutmutmmmmmsmmmntt 

iiiiiniitinniitiiiniiiuiniiiuinniuiiiniiniiiuiiitiiiinii: 

ntn  tnti 

!tm  Object  Tree  Manipulation  tttt! 

nm  mti 

tnniitutnuiiuiutnuiniminiutiiiniinii!ii!ittimniuit 

.mmttmmmiummtmmummmimmmttmtmttmtt/ 


n %i 

it            do_obj  tl 

it -- XI 

VOID 

do_obj (tree,  which,  bit!      It   set  specified  bit  in  object  state  1/ 

LONG   tree; 

WORD   which,  bit; 

{ 

WORD   state; 

state  =  LWGET(OB_STATE(which)); 
LWSET(OB_STATE(whkh),  state  !  bit); 
} 


H 1/ 

ft            undo  obj  1/ 

It- !/ 

VOID 

undo_obj(tree,  which,  bit)    It   clear  specified  bit  in  object  state  tl 

LONG   tree; 

WORD   which,  bit; 
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WORD   state; 

state  =  LWGET(OB_STATE(Mhich) ) ; 
LHSET (CB_STATE (whi ch) ,  state  &  '"bit); 


it — - xi 

it  sel_obj  XI 

,t : _.|/ 

VOID 

sel_ofaj (tree,  which)       It   turn  on  selected  bit  of  spcfd  object  XI 

LONG   tree; 

WORD   which; 

! 

l 

do_obj(tree,  which,  SELECTED); 
} 

It XI 

It            desel_obj  XI 

lt Xi 

VOID 

desel _obj (tree,  which)      It   turn  off  selected  bit  of  spcfd  object!/ 

LONG  "  tree; 

WORD   which; 
f 

V 

undo_obj (tree,  which,  SELECTED); 
} 

It »/ 

IX            enab_senu  XI 

IX Xi 

VOID 

enab_senu(whichi  It   enable  specified  menu  i tea  XI 

WORD   which; 

{ 

undo_obj(gl_»enu,  which,  DISABLED); 
} 

IX xi 

it            unflag  obj         XI 
It—- -: ti 

VOID 

unflag_obj(tree,  which,  bit) 

LONG   tree; 

WORD   which,  bit; 

{ 

WORD   flags; 

flags  =  LWEET(0B_FLA6S!whichl); 
LWSET(OB_FLAGS(which),  flags  &  vbit); 
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IX 

IX            -f  lag_ofaj 

— tJ 

XI 

/*__ 

*  / 

/» — 

VOID 

+ 1 3y_obj (tree,  which,  bit! 

LONE   tree; 

WORD   which,  bit; 

{ 

WORD   flags; 

flags  =  LWGET(QB_FLAGS!which)); 
LWSET(OB_FLAGS(which),  flags  !  bit); 


n- 

xi 

/I     mdir  obj 

XI 

/* 

t  / 

VOID 

indi r_ob j (tree,  which) 

LONG   tree; 

WORD   which; 

f 

*laq_obj (tree,  which,  INDIRECT); 


lx - 

Xi 

IX             dirobj 

XI 

;♦ 

i  j 

/I 

1/ 

VOID 

dir_obj (tree,  which) 

LONG   tree; 


WORD 


which: 


unflag_obi!tree,  which,  INDIRECT); 


It- 


XI 

IX  get_parent         XI 
IX : XI 

IX 

X  Routine  that  will  find  the  parent  of  a  given  object.  The 
X      idea  is  to  walk  to  the  end  of  our  siblings  and  return 

X      our  parent.  If  object  is  the  root  then  return  NIL  as  parent. 

XI 

WORD 

get_parent (tree,  obj) 

LONG   tree; 

WORD   obj; 
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WORI 


pcbj; 


H   (obj  ==  NIL) 

return  (NIL); 

pobj  =  LHGET (OB_NEXT(abj ) ) ; 

H  (pobj  !=  NIL! 

{ 

while!  LW6ET(0B_TAIL(pobj))  !=  obi  } 
{ 

obj  =  pobj; 

pobj  =  LH6ET {QB_NEXT (ob j ) ) ; 


} 


return (pobj) ; 


} 


ft - 1/ 

It  objc  xywh  XI 

i% : xi 

VOID 

objc_xywh(tree,  obj,  p) 

LONG   tree; 

WORD   obj; 

GRECT   tp; 

{ 

objc_ottset (tree,  obj,  ip->g_x, 
p->g~«  =  LWGET  (QB_WIDTH (ob j ) ) ; 
p->g~h  =  LHGET(GB_HE!GHT(obj!l; 

} 


It   yet  x,y,*,h  for  specified  object  tl 


>g_y) 


j  tumult  iiinmnnu  muni  tnimiuummunnuniinum 

iitiiiuuitiuminuniUHunntiitnuitiiiinuinttiiiinutu 
itm  tut; 

/ItM  File  Path  Nase  Functions  ttttl 

Itttt  ttttl 

/lunniiiiiiUHtnuiiiiitiutuniitutitimniiutuiHiimniii 

Hiuintniin«niii!»UHUMiiituittunmiiiiuiiniiniitiiU!t 


ft 

It      dial  nats 


ft- 


WORD 

dial  nase 

i  name  ) 

BYTE   tnase; 

{ 

LONG 

tree  ; 

LONG 

ted  addr  ; 

BYTE 

c  ; 

WORD 

i,  J! 

■tl 

tl 
■tl 


It  dialogue  box  input  -filename  tl 


80 


GRECT    bo*; 


objc_xyHh(gl_ienu,  SUREFILE,  JiboxS; 

rsrc_gaddr!  RjREE,  SURESVAD,  ttree)   ; 

ted_addr  =  LLGET  tOB_SPEC (SURENAME) ) ; 

LLSETI  ted_addr,  ADDR(nane)  )  ; 

LHSETf  TE_TXTLEN(ted_addr),B>; 

namefO]  =  '\0'; 

it(hndl_dial (tree, SURENAME, box. g_x, box. g_y, box. g_u, box. g_h)==BURESOK) 

{ 

1  = 

J  =  0; 

while  (TRUE) 

{ 


')  1 


strcpyl  inawtj],  ".DOO"  )   5 
desei_cbj (tree,  SURESDK); 
return   (TRUE); 


c  =  nase[i++]; 

if   (!c) 

break  ; 

if   (  (c  !=  '  ' 

1  It 

(c 

naiie[j++3  : 

:  c  ; 

} 

if 

(  Inaae  ) 

else 

r 


desel_obj(tree,  SURE3CNL); 
return   (FALSE); 


} 


it a 

it            get_path  %! 

it */ 

VOID 

get_path(tsp_path,  spec)  it  get  directory  path  naae         ti 

BYTE        ttipjsath,   tspec; 

{ 

WORD        cur_drv; 

cur_drv  =  dos_gdrv() ; 

tnp_patnCO]  =  cur_drv  +  'A'; 
ttp_path[l]  =  ':'; 
tnp_path[2]  =  '\\'\ 

do5_gdir(cur_drv+l,  ADDR(it«p_path[3]l); 
if  (strien (t»p_path)  >  3) 

strcat(tip_path,  B\\B); 
else 
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tsp.pathm  =  '\0'i 
strcat (tnp_path,  spec); 


!t xi 

IX             add_-file_naae        XI 
IX "— -- XI 

VOID 

addjile_na*e(dnane,  Inane)  IX   replace  name  at  end  of  input  Hie  spec*/ 

BYTE   tdnase,  tfnaae; 

{ 

BYTE   c; 

WORD   ii: 


ii  =  strlen(dnaie); 

while  (ii  kk   (iic  =  dnaueCii-1])  !=  'W'i  kk   ic  !  = 

ii— ; 
dna«e[ii]  =  '\0'; 

strcat idnase,  fnase); 


VI)) 


IX 

IX  get_file 

IX 

HOftD 

get_f  ile  (loop) 

BOOLEAN   loop; 
\ 

WORD   fs_iexbutton; 

BYTE   fs~iinsel[13Jj 


■XI 

XI 

■XI 


IX  use  hie  selector  to  get  input  filet/ 


while  (TRUE) 


get_path(file_na»e,   "».D00°); 
f5_iinsel[0]  =  '\0'; 

fsel_input(ADDR(file_nafte),  ADDR (ts_i insel  i ,  &fs_iexbutton); 

if  (fsjexbutton) 

{ 

add_file_naiseitile_naiE,  f  si  insel); 

■f  ilehandle  =  dos_open(ADDR(file_na«e),2); 

if  ('loop  :!   (loop  kk  !DDS_ERR))" 
return (lij 
} 
else 

return  (0); 
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}      ft  get_file  ti 


''flI|tiiiifttiifUtItttlU«»ltttttWtlIlttltfMM;«>tttt«>tlltltlltUfl- 

/itiinniininiiiiiiniiiitinuiittt),:tttiintti)iunnuitiiiiiit 
/mi  titty 

/tttt  Soft  Cursor  Support  tttt/ 

/tttt  tttt/ 

/tttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt/ 

UHMiumiiiimiiUiUiiMiiUHiuiuiiiiiiiiiituiiiuiitiuitH 


/t -ti 

it             cursor  ti 

it XI 

VOID 

cursor icolor!  It   turn  cursor  on,  color=BLACK  ti 

WORD   color;  /t  or  cursor  off,  color=  WHITE  1/ 

WORD   pxy[4]; 

pxyiO]  =  key_xcurr  t  1; 

psyti]  =  key_ycurr  +  Qlhspace; 

pxy[2]  =  key_xcurr  +  1; 

pxy[3]  =  key_ycurr  -  gl _hbox ; 

vsl_color(vdi_handle, color) ; 
vswr_«ode(vdi_handle,MD_REPLACE) ; 
vsljtype  (vdi_handle,FIS_SOLID); 
vsfnidth  (vdi_handle,PEN_FINE); 

graf_fflouse!fl_OFF,  OxOL); 


windjet  (pi  ct_tindl,HF_TOP,&<curr_hndl,  0,0,0); 


if  (curr_hndl  ==  pict_hndl)  set_cl ip (TRUE,  ipictjuork); 
if  (curr_hndl  ==  data_hndl)  set_clip (TRUE,  idata.work!; 
v_pline(vdi_handle,  2,  p x y ) ; 


if  (curr_hndl  ==  pict_hndl   I  set_cl ip (FALSE,  fcpictjiork!; 
if  (currjindl  ==  data.hndi  )  set .dip (FALSE,  fcdatajtork); 

graf_iouse(H_ON,  OxOL); 
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It- 
It 

i 


curs  on 


, 

VOID 
curs_on() 

{ 

cursor (pen_shade) ; 
} 


a 


1%   turn  'soft'  cursor  'on'    1/ 


l% 

it  curs_oH 

It — 

VOID 

curs_off 0 
{ 

cursor (PEN_ERASER! ; 
} 


■tl 
t! 
■t! 


it  turn  'soft'  cursor  'off        ti 


ntiuiuijiiiiniJimiiiiiiiuiiuHiifuHiitHiDnnuniiiiiiui 
itttt  tttti 

/Hit  Menu  Handling  tttti 

/titt  tttt 

ijiiHMiuimnjUHiimnnniMiJMnniinMinininnimniH 

niii.nfiuisnnuiitiKHiiniitmuHHlaiiiiiHUHtliHiiHni 


/» 

it        hndl _menu 
it 


WORE 
hndl_»enu(title,  itea) 

WORD   title,  item; 

WORD   done; 
ERECT   box; 
LONS   tree; 


■a 

ti 
■ti 


ft   curr_hndl  is  known  if 
calied  trot  hndl _ssg  ti 


gr af _«ouse (ARRQIn,  OxOL); 
done  =  FALSE; 
switch  (title!  { 
case  5UREDESK: 

it  dtei  ==  SUREINFO! 
do_about!); 

break; 


it   ienu  selection  naoe-DESK 


ti 


case  SUREFILE: 

switch  (item) 

r 


it   (»enu  selection  name-FILE 


1/ 
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IX   senu  selection  naae-LOAD   XI 


IX  aenu  selection  naae-SAVE        XI 


IX   senu  selection  naie-BAVEAS  1/ 


case  SURELOAD: 

doJoad(TRUE); 

break; 
case  BURESAVE: 

do_save(5; 

break; 
case  SURESVAS: 

do_svasO; 

break; 
case  SUREABAN:  IX  senu  selection  narae-ABANDON  XI 

■file_handle  =  do5_open(ADDR!hle_naae),2); 

do.load (FALSE!; 

break; 
case  SUREQUIT: 

done  =  TRUE; 

break; 
J 


It   senu  selection  naae-QUIT   XI 


case  SCROPTS: 

switch  (itei) 

{ 

case  SUREFENS: 

do_penselect ( ) ; 

break; 
case  SUREERAF: 

do_erase(t; 

break ; 
case  VIEHITEH: 

do_view(); 

break; 


It   senu  select  nane-SCR-DPTIONSt/ 


ft   senu  select  naae-PENS/ERASERt; 


It   senu  selection  nase-ERASE  %l 


It   aenu  selection  nase-VIEN  ...t> 


case  SUREOFTS: 
switch  (itei! 
{ 
case  SUREPLOT: 

doplot ( ) ; 

break; 
case  SUKECOHP: 

do_cospute(); 

break; 
case  SUREHARD: 

dc_hardcopy  0; 

break; 
case  SLDWTRAN: 

do_slow_transition(); 

break; 
case  FASTTRAN: 

do_fast_transition(); 

break; 
case  SURESTAT: 

do_states(); 


It   senu  naae-SURE-OPTIONS     %l 


It   senu  nase-RELIABILITY  PLOT  tl 


It   senu  nase-COMPUTE 


It   senu  nase-HARDCOFY 


tl 


tl 


It   aenu  naae-SLOW  TRANSITION  tl 


It   senu  naae-FAST  TRANSITION  %i 


It   aenu  naae-ENTER  STATES     M 
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break; 
case  SURECONB:  IX   »enu  name-ENTER  CONSTANTS  XI 

do_constants(); 

break; 

i 
/ 

} 

»enu_tnorial lyl_ienu, title, TRUE); 

qraf_eouse(soriu«ber,  scfaddr); 

return  (done); 


IX XI 

IX            dc_about  XI 

jX 1 |/ 

VOID 

do_about()  1%   display  SURE  Info...      XI 

{  ' 

LONG   tree; 

SRECT  box; 

objc_xytih(gl_ienu,  SUREDESK,  fcbox); 
rsrc_gaddr(R_TREE,  SUREINFD,  &tree)j 
hndl_dial (tree,  0,  box.g_x,  box.g_y,  box.g_w,  box.g_h); 
desel_ob j (tree,  5UREQK); 


/* - -1/ 

It            do_view  XI 

IX 1 1/ 

VOID 

do_view()  IX   display  zoosing  available  XI 

{ 

LONE   tree; 
GRECT  box; 

set_clip(TRUE,  &pict_undo); 

objc_xy«h(gl_ienu,  SUREDESK,  ibox)j 

rsrc~gaddr(R~TREE,  FITDIAL,  fctree); 

hndl_dial (tree,  0,  box.g_x,  box.g_y,  box.g_n,  box . q_h i ; 

desel_obj(tree,  FITOKJj 

for   (  curjit  =  FULLITEM  ; 

(MLWGETi  0B_STATE!  cur  Jit  )   !  fc  SELECTED)   !   ; 

cur_fit++  ) 

It    set_xfora()  ; 

set_dip(  TRUE,  fepict_i»ork_area  !  ; 
rdr_iesg();t/ 

set_clip!FALSE,&pict_undo); 
}      IX    do  view        XI 
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ix -- —-M 

It      do_load  tl 

It — - XI 

IX   carr_hndl  is  known  XI 
VOID 

do_load ineed_naffle)  It   load  file    XI 

BOOLEAN   need_nase; 
{ 

if  (!need_naae  I!  get_-f i le(TRUE) ) 
{ 

if  (IDOS.ERR) 
{ 

dos_read(f 1 le_handl e,  size_pict_«fdb,loc_pict_afdb) ; 
dos_read(f ile_handle,  size_data_»fdb,loc_data_iifdbi ; 

dos_close(file_handle) ; 

enabjienu(SURESAVE); 

enab_senu!SUREABAN) ; 

rst_pict_*ork(); 

rst_data_work(); 

} 


It 1! 

it      do_save  XI 

ix — : xi 

VOID 

do_save()  IX   save  current  nased  SURE  picture  1/ 

r 

«ind_get  (pi  ct_hndi,WF_TOP,kurr_hndi,  0,0,0); 
if  (tfile_naae) 
{ 

file_har:dle  =  do5_opep(ADDRifile_na(se),2!; 
if   (D0S_ERR) 

file_handle  =  do5_create(ADDRifile_na»e!,0); 
else 

r 

if  (fors.alertd,  string_addr (SUREGVHR) )  ==  2) 

return; 
} 

dos_wnte(file_handle,  size_pict_«fdb,  lo:_pict_sfdb); 

d05_wnte(file_handle,  size_data_sfdb,   !oc_data_ifdb); 
enab_*enu(SURESAVE!; 
enab_ienu(SUREABAN); 
dD5_close(file_handle)j 

1 

/ 
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ix XI 

It  do  save_as         1/ 

i% : — : xi 

VOID 

do_5vas()  ft   save  SURE  picture  as  named  1/ 

f 

'{. 

BYTE   naae[13J; 

if  (dial_na«e(!inaaeCO])) 

{ 

add_-file_nase(-file_na*e,  nase); 

dc_5ave(); 
} 
} 

/*— - — — - 1/ 

IX            set_pen  XI 

IX — -: Xi 

VOID 

set_pen (pen,  height! 

WORD   pen,  height; 

SURE_pen  =  pen; 
SUREJieight  =  height; 
lonunber  =  5; 
eo^addr  =  OxOL; 
} 

IX - -XI 

IX        set_eraser  1/ 

IX 1 1/ 

VOID 

set_eraser (pen,  height,  eraser) 

WORD   pen,  height; 

BYTE   teraser; 

r 
V 

BURE_pen  =  pen; 
SUREJieight  =  height; 
SURE_shade  =  PEN_ERASER; 
nonuiber  =  255; 
aofaddr  =  ADDft (eraser); 
} 

IX _.|/ 

IX             set_color  XI 

IX 1 xi 

VOID 

set_color(tree,  obj,  coiDr_nun,  bind) 

LONG        tree,   »bind; 

WORD       obj ,  color_nu«; 

{ 
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set_select (tree,  obj,  color_nu«  -  1,  bind,  color_sel); 

} 


jt 

(/ 

IX             get_cclcr 

XI 

/* 

#/ 

n 

WORD 

get_colcr (tree,  obj! 

LONG   tree; 

KORD   obj; 

return  get_select (tree,  obj)  +  1; 
} 

/I 1/ 

IX  do_penselect        XI 

ix : xi 

VOID 

do_penselect()  IX   use  dialogue  box  to  input  selection  Xi 

{  IX   ot  specified  pen/eraser         XI 

WORD   exit_obj,  pse!_obj,  color; 

LONG   tree,  bindC21; 

GRECT   box; 

set_cl i p (TRUE,  ipict_undo); 
objc_xywhtgl_ienu,  SUREPEN5,  ibox!; 
rsrc~gaddr(R~TREE,  SUREPEND,  itree); 

IXXi  IX   first  setup  current  selection  state!/ 

switch  (SURE.pen)  { 
case  PEN_FINE: 

sel_obj(tree,  (SURE_shade  j=  PEN_ERASER)^ 

SUREPFIN:  SUREEFIN); 
radius  =  10; 
break; 
case  PEN_HEDIUM: 

sel_obj(tree,  (SURE_shade  !=  PEN_ERASER)? 

SUREPtlED:  SUREEMED); 
radius  =  16; 
break; 
case  PEN.BROAD: 

sel_obj(tree,   iSURE_shade  !=  PENJRASER! -' 

SUREPBRD:  SUREEBRD); 
radius  =  20; 
break; 
} 

set_colorttree,  DEHQPCLR,  pen_shade,  bind); 

IXXI  IX   get  dialogue  box  input     XI 

exit_obj  =  hndl_dial (tree,  0,  box.g_x,  box.g_y,  box.g_w,  box.g_h); 
for  (psel_obj  =  SUREPFIN;  psel.obj  <=  SUREEBRD;  psel_obj++) 
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) 


H  !LHGET«OP.STATE«pseI_obj))  It  SELECTED) 
£ 

desel_obi (tree,  psel _ob j ) ; 

break; 

color  =  o,et_color  (tree,  DEHQPCLR); 
it  (exit_obj  ==  SUREPSOK) 

r 

switch  (psel _ob j )   { 
case  SUREPFIN: 

set_peniPEN_FINE,  char_fine); 

SURE_shade  =  color; 

break; 
case  SUREPMED: 

set_peri (PENKEDIUH,  char_iediuffi) ; 

SURE_shade  =  color; 

break; 
case  3UREPBRD: 

set_pen  (PENJROAD,  char_broad) ; 

SURE_shade  =  color; 

break; 
case  SliREEFIN: 

set_eraser(PEN_FINE,  charjfine, 
"  (BYTE  i)  erase_fine>; 

break; 
case  SUREEHED: 

set_eraser (PEN_HEDIUH,  char_aediu«1 
(BYTE  t)  erase_iediuffi!; 

break; 
case  SUREEBRD: 

set_eraser  (PENJROAD,  char_broad, 
(BYTE  *)  erase_broad!; 

break; 

i 
/ 

pen_shade  =  color; 

desel.ob.iftree,  SUREPSOK); 

else 

desel _obj (tree,  SURECNCLI; 
set_dip  (FALSE,  ipictjindo); 


It — 1/ 

ft            do_erase  </ 

It — : 1/ 

VOID 

do_erase(!  It  clear  the  'picture'  and  'data'  bu-fter   (ifdb's) 

and  re-init.  the  screen  XI 

{ 
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GRECT  tup.area; 

tffip_area.g_x  =  0; 

t»p_area.g_y  =  0; 

treparea.QN  =  pi ct  di-f db . t «p; 

tap_area.g_h  =  pict_af  db.-fh; 

rast_Dp  (0, Srt»p_area, Sipict_Bi-f  db, Sttsip_area,Sfpi ct_Bi+db ) ; 

tffiparea.  y_«  =  dat  a_e-f  db .  -f  wp; 

tffip_area.g_h  =  datajrfdb.fh; 

rast_op(0,itip_area,lidata_i{db,itip_area,idata_*-fdb); 

rst_pict_work  0; 

rstjiatajiorkO; 

init_data(); 

nu«_state5  =  1; 
ydata  =  1; 


; 


iniiuiuntiiitiHfiliMiiJiuiuiiiiiiiinjnUiiniiUHHiiji'in 
/mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm/ 
/mm  mm/ 

/MM  Keyboard  Handling  MM/ 

/MM  MM/ 

,'MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM/ 
/utumttutuuttuumuutututtututuututuuttutuutuu 


ft 

/t     hndi_keyboard 

/* 

--*/ 

t! 
i  / 

HORD 
hndl_keyboard() 

r 

— #/ 

HORD   l ; 
BYTE   str[2]j 
SRECT   lttr,  test; 

if  ((strCO]  =  kreturn)  == 

return (TRUE); 
graf_sQuse(M_OFF,  OxOL) ; 
i-f  (!key_inptit) 

{ 

0x03) 

vswrj»ode(vdi_handle,  MD_REPLACE); 
vst_color (vdi_haridle,  pen_shade) ; 
vst_height(vdi_handle,  SURE_height, 

igl_wchar,t:gl_hchar,{(gl_Kbox,tgl_hbox); 
gl_hspace  =  gl_hbox  -  gl_hchar; 
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v=t_al ignaent (vdi_handie,  0,  0,  &i,  ii); 

graf_»kstate(&key_xbeg,  &key_ybeg,  &i ,  lei); 

key_xcurr  =  ++key_xbeg-B; 

keyycurr  =  — key_ybeg+4; 
} 
el =e 

curs_o-ft  0; 
strtl]  =  "\0'j 
it  IstrlO]  ==  Oxl A! 
{ 

save_pict_work(!; 

gra*_iouse(ri_QN,  OxOL); 

return (key_input  =  FALSE!; 
} 

else 
it  (strEO]  ==  OxOD) 

{ 

key_ycurr  +=  Ql_hbox  +  gl  hspace; 
key_xcurr  =  key_xbeg; 
} 
else 

H  (5tr[03  ==  0x08! 
{ 

if   (keyjnput  ktt  (key_xcurr   !=  key_xbeg)l 
{ 

tor   (i  =  0;   l  <  gl_wbo>:;   i++) 
( 


key_xcurr— ; 

} 


curs_off  0; 


} 
else 

it   ((5tr[03  >=  '   ')  M  (strtO]  <=  ':'! 
{ 

1 ttr . g_x  =  key_xcurr; 
lttr.g_y  =  key_ycurr  -  gl_hbox; 
1 ttr. q_h  =  gl_wbox; 
Ittr. g_h  =  ylhbox ; 
rc_copy(fclttr,  Jttest!; 
rc_intersect(ipictjtork,  Hest); 
H  {!rc_equal(fclttr,  itest)! 
{ 

graf_eouse(H_ON,  OxOL); 
return  (FALSE); 

setel  ip  <TRUE,  8cpict_work) ; 

v_gtext(vdi_handle,  key_xcurr, 

key_ycurr,  str); 
set_clip (FALSE,  ttpict_Mork) ; 

key_xcurr  +=  gl_«box; 
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} 

if  (!key_input) 
{ 

keyinput  =  TRUE; 

> 

C'jrs_on(); 

grat_»ouse(!1_0N)  OxOL); 
return (FALSE) ; 


tintiiiiiniiimttmtiiunimnuiititiKiiiiMinnuuitiiuia 
/umiuuiiitiiiHtitiiuttuiiintuutntiiiiituunuutiimuii 
ittu  tut 

(tUt  Message  Handling  nil 

un  nu 

(nmmmtmtmmmmmtmmnmmmmmmmmtmn 

jiii!i!Ui!iiuii)iiiniHiiiuiiitmiiiiiitiiuiimiitiunnuitn 


n 

tj 

1%            hndl_ssg 

M 

/* 

t  / 

/ 1 

«/ 

/IMLCCALt/   BOOLEAN 

hndl _ssq ( ! 

BOOLEAN  done; 

GRECT   work; 

dene  =  FALSE; 

curr_hndl  =  wind_-find  (sousex  ,«ousey! ; 

l-f  (  curr_hnd!  ==  pict_hndi  ) 

{ 

rc_copytlipict_undo,Sccurr_undo) ; 

rc_copy!ipict_work,kurr_Nork) ; 

curr_ti-f  db.-f  «p  =  pict_s-f  db.  -f  t*p ; 

curr_Btdb.-f  h    =  pi  ct_»-f  db. -f  h; 

ii   !  curr_hndl  ==  data_hndl  ! 
( 

rc_copy(&data_undo,&curr_undo) ; 
rc_copy!?(data_«ork,kurr_Hork) ; 
cerr_tfdb.-fwp  =  data_»-f  db.  -fwp; 
curr_»f  db.-fh    =  data_»f  db.-f  h; 
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switch)  gl_r«sgEO]  i 

case  HNJELECTED: 

done  =  hndl_«enu(gl_rn5gC3],Ql_rB5CjC4j) ; 

break; 

case  MHJEDRAW: 

dD_redraw(gl_rnsg[33,   (BRECT  I!  &q1 _r»£gU43) ; 
break; 

case  HKJOPPED: 

wind_set(gl_r(659[3],  MF.TOP,  0,  0,  0,  0!; 

break; 
case  WM_CL0SED: 

done  =  TRUE; 

break; 
case  HHJULLED: 

do.full (currhndl ) ; 

break; 
case  WM.ARRQHED: 

switch (gl_r«sgC43) 

r 

case  «A_UPPAGE: 

curr_undo.g_v  =  »ax(curr_undc.g_y  -  curr_undo.g_h,  0); 

break; 
case  WA_DNPA6E: 

curr_undo.g_y  +=  curr_undo.g_h; 

break; 
case  HA_UPL!NE: 

curr_undo.g_y  =  iax(curr_undo.g_y  -  YSCALEI16),  0); 

break; 
case  WA_DNLINE: 

curr_undc.g_y  +=  YSCALE(li); 

break; 
case  «A_LFPAGE: 

curr_undo.g_x  =  lax (curr_undo.g_x-curr_undo.g_w,  0); 

break; 
case  WA_RTPASE: 

curr_undo.y_x  +=  curr_undo.g_w; 

break; 
case  WA_LFLINE: 

curr_undo.g_x  =  sax(curr_undo.g_x  -  16,  0); 

break; 
case  HA_RTLINE: 

curr_undo.g_x  +=  16; 

break; 

i 

/ 

ii   (  currjindl  ==  picthndl   ) 

r 
X 

rc_copy(kurr_undo,4pict_undo); 
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5et_pict_«ork(TRllE); 

rst_pict_work(); 

} 
it  (  curr_hndl  ==  data_hndl  ) 

{ 

rc_copy(fecurr_undo,ltdata_undo); 

set_data_workttRUE); 

rst_data_*ork(); 

} 
break; 

case  HH_HSLID: 

curr_undo.g_x  =  align_x  (UMUL_DI V(curr_»f db . -fwp  -  curr_undo.g_w, 
gl_r«sg[43,  1000)); 

if  I  curr_hndl  ==  pi  cthndl  ) 

T 
\ 

pict_undo.g_x  =  curr_undo.g_x; 
set_pict_Mork(TRUE); 
rst_pict_Nork(); 
} 
if  (  curr_hndl  ==  data_hndl  ) 

r 
1 

datajindo.gjf  =  curr_undo.g_x; 
set  jiatajiork  (TRUE); 

rst_data_work(!; 
} 
break; 

case  M_VSLID: 

curr_undo.g_y  =  UHUL_DIV(curr_ifdb.'fh  -  curr_undo.g_h, 
gl_r«sg[4],1000); 

it  (  curr_hndl  ==  pict_hndl  ) 

{ 

pi  ct_undo. g_y  =  curr_undo.g_y; 

5et_pict_«ork(TRUE); 

rst_pict_work(); 

> 
it  (  curr_hndl  ==  data_hndl  ) 

data_undo.g_y  =  curr_undo.g_y; 

5et_data_work(TRUE); 

rst_data_workO; 

} 

break; 
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case  HM_SI2ED: 

curr_hndl  =  mnd^indiuouse^iiQusey!; 

ii   lcurr_hndl  ==  pict_hndl) 

{ 

wind_calcU,  OxO+ef ,  gl _r»sg[4 ] ,  gl_rtsgC53,  gl_r«sgC63, 

gl_rBsg[73,4pict_work.g_x, tpict_«ark.g_y,ipict_wDrk.g_w, 

tpict_wbrk.g_h) j 
pict_«ork.g_x  =  align_x(pict_nark.g_x); 
pict_nork,g_w  =  align_x(pict_work.g_w); 
wind_caldO,  OxO-fe-f ,pict_work.g_x,pict_uork.g_y,pict_work.g_N, 
pict_work.g_h,!igl_ri5gC43,!igl_ri5Q[53,ligl_r«sg[63,ligl_r«sg[7]); 
wind~set(pict_hndl,  NF_CXYWH,"gl.risgC41, 

gl_r»sg[5],  gl _rasg[63 ,  gl _r»sg[73 ) ; 
} 

break; 
case  WKJOVED: 

curr_hndl  =  wind_find(«ou5e):,iou5ey)  j 

if(curr_hndl  ==  pict_hndl) 

{ 

gl_m5g[4]  =  alvgn_x(gl_rasg[435; 

wind_set(pict_hndl,  MF.CXYMH,  align_x(gl_rBsg[43)  -  i, 

gl_risg[53,  gl_r«sgC63 ,  gl_rasg[73 ) ; 

break; 
}  IX   switch  t! 
return (done! ; 
3  /»  hndl_tsg  t! 

it- — — ti 

IX             do_redraw  XI 

H 1 if 

VOID 

do_redraw(wh,  area)         It   redraw  specified  area  from  undo  b-f r  ti 

WORD   wh; 

GRECT   tarea; 

{ 

BRECT   box; 

GRECT   dirty_source,  dirty_dest; 

grat_souse(H_OFF,  OxODj 

wind_get(wh,  WF_FIRSTXY«H,  fcbox.gjt,  ibox.g_y,  fcbox.gj*,  Ssbox . g_hi ; 

while  (  box.g_w  kk  box.g_h  ) 

if   !rc_mtersect(area,  kbox!) 
f 


it   (  wh  ==  pi  cthndl   ! 

{ 

rc_copy(&box,  idirty_dest); 
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if  (rc_intersect(ipict_work,  tdi rty_dest ) ) 
{ 
dirty_5ource.g_x  =  (dirty_dest.g_x  -  pict_uork.g_x) 

+  pict_undo.g_x; 
dirty_source.g_y  =  (dirty_dest . g_y  -  pict_work.g_y) 

+  pict_unde.g_y; 
dirty_source.g_w  =  dirty_dest.g_w; 
dirty_source.g_h  =  dirty_dest.g_h; 
rast_op(3,  &.dirty_source,  &pict_sfdb, 
idirty_dest,  &scrn_ifdb); 


if  (Mh  ==  data_hndl! 

; 

I 

rc_copy(ibox,  idi rtydest ) ; 

if  (rc_intersect(kdata_wark,  fcdirty_dest J > 

{ 

dirtysource.qx  =  (dirty_dest . g_x  -  data_work.g_xl 
+  data_undo.g_x; 

dirty_50urce.g_y  =  (di r ty_dest • g_y  -  data_work.g_y! 
+  data_undc.g_y; 

dirty_source.g_w  =  dirty_dest. q_w; 

dirty_source.g_h  =  dirty_dest.g_h; 

rast_op(3,  fcdirty_source,  &data_»-f db , 

Stdirty_de5t ,  &scrn_nfdfc) ; 


nind_get(wh,  WF_NEXTXYMH,  &box.g_x,  &box.g_y,  fcbox.gjt,  fcbox.g_h); 
/ 
graf  souse (K  ON,  OxOL! ; 

} 

a »/ 

IX  dojull  II 

/i : %i 

VOID 

do_-f ul  1  (wh)  IX   depending  on  current  window  state,  either  make  window*/ 

WORD  wh;   IX   full  size  -or-  return  tc  previous  shrunken  size     XI 

\ 

GRECT  prev; 

GRECT  curr; 

GRECT  full; 

graf_souse(M_OFF,OxOL); 

wmri_get!wh,  WF_CXYWH,  kurr.g_x,  fccurr.g_y,  &curr.g_w,  fccurr.gji); 

wind_get(wh,  HF_PXYWH,  &prev.g_x,  fcprev.g_y,  &prev.g_w,  fcprev.g_h) ; 
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Mindjettuh,  WF_FXYHH,  ifull.gj,  ifull.g_y,  Hull.gji,  Mull.gji); 
if  (  rc_equal (&curr,fcfull)  )  It   is  -full  now  so  shrink  it  XI 

gra-f  shrinkbox  (prev.gj;,  prev.g_y,  prev.g^w,  prev. g_h, 
■full. g_x ,  full.g_y,  -full. g_w,  full.g_h); 
wind_set!wh,  WF_CXYWH,  prev.g_x,  prev. g_y,  prev.g_w,  prev. g_h) ; 

if  (  Nh  ==  pkt_hnd!  ) 

{ 

rc_copy(fcpict_prev_undo,&pict_undo) ; 
set _pict_work (TRUE); 

if  (  wh  ==  data_hndl) 
{ 

rc_copy(!idata_prev_undo,Jidata_undo); 
set_data_«ork(); 
} 

if  (!prev.g_x  ==  full.g_x)  &&  (prev.g_y  ==  fu!l.g_y!) 

if   (  «n  ==  pict_hndl  !     do_redraw(wh,  ipictjrork); 
if   (  wh  ==  data_hnd!   )     do_redraw(wh,  «data_work); 

} 

else  It   is  not  full  so  sake  it  full  1/ 

{ 

if   (currjindl  ==  pict_hndl)  rc_copy(Stpict_undc,!<pict_prev_iindo); 

if  (curr_hndl  ==  data_hndl)  rc_copy(fcdata_undo,idata_prev_undo); 

graf_gronbox(eurr.g_x,  curr.g_y,  curr.g_w,  curr.g_h, 
-f u  1 1 . g _ x ,  full.g_y,  full.g_w,  full.g_h); 
»ind_5et(nh,  HF_CXYWH,  full.g_x,  full.g'y,  full.g'w,  full.g_h); 
if   (currjindi  ==  pict_hndl)     set_pict_work (TRUE) ; 
if   (currjindl  ==  datajndl)     set _data_»*ork (TRUE); 

graf_iouse(H_GN,OxOL!; 
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.muimmtuntmnniimiiittmiiiiHiiiiuimttimuutm 

fttmmt  xtxxxtxxxxxtxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxttxxxxx 
itxtt  n 

littt  Mouse  Handling  It 

nut  it 

/jtmtttttftttmmmmttstmitttmtmtmmtmmmtmttt 

ininif!ii!iiinii!iim!iii!iiiiti!t)iiiiiittinnii!iuinntitu 


li- 

—XI 

ft 

. *_ 

hndl. 

souse 

XI 

*  ' 

HQR 

; 

hndl_aou5e() 

l 

BOOLEAN 
ii   (eout 

done; 

gra-f  _ 

souse 

(ARROW, 

Ox 

OL); 

else 

grat 

souse 

(ftonusb 

er, 

sctaddri; 

s_out  =  lffl_aut; 

done  =  FA> 

.SE; 

return (done); 

.  UUittUttfllillSUttnitUtUltUtitltUlttitiMltHttliMttUMint.' 

/lUiittniiiuiiiiiiuitmitutumntiiiiHiitiiiiiumitimitm; 

IXXXX  XXXXi 

ItXit  Button  Handling  tXXXI 

IXXXt  XUti 

Hmmimuimiiuiiuninmmmmimntnmmmiminu 

/ntinuittUiUllfMUiUUtiititllUllUMtitUiMllttltHMlUUlti 


1% .__. 

-XI 

IX            draw_pencil 

XI 

/# 

i  1 

KDRD 

\i 

drawpencil ix ,  y) 

UMORD   x,  y; 

r 

UWDRD   pxy[4]j 

WORD    done; 

UWORD   ifiags; 

UWQRD   loccunt, 

hicount; 

UWORD   evjihich 

bbutton, 

kstate,  kretum, 

breturn; 
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set_cl ip (TRUE,  kurr_t»ork); 
pxy[0]  =  x; 
pxyCi  j  =  y; 

v5l_color(vdi_handle,SURE_shade); 
vs«r_«ode(vdi_handle,HD_REPLACE!; 
V5l_type  (vdi_handle,FIS_50LID) ; 

if   (SURE_shade  !=  PEN_ERASER! 

t 
\ 

vsljtidth  (vdi_handle,SURE_pen-2) ; 

vsl_ends(vdi_handle,  2,  2); 

hi  count  =  0; 

locount  =  125; 

■Hags  =  MU.BUTTON  !  MU_M1   !  HU.TIMER; 

graf_no'Jse(H_OFF,  OxOL); 
1 

; 

else 
{ 

vs-f _interior (vdi_handle,   l); 

vsf_color(vdi_handle,  WHITE); 
mt lags  =  HU.BUTTON  !  MUJ11; 


dene  =  FALSE; 
while  ('done! 
{ 

ev_which  =  evnt_«ulti (iflags, 

OxOi ,  0x01,  0x00, 

1,  pxyCOl,  p:<y[13,  1,  1, 

0,  0,  0,  0,  0, 

ad_ru5y,  locount,  hicount, 

ipxy[23,  tpxy[33,  fcbbutton,  ikstate, 

Ikreturn,  kbreturn); 

if   (evjihich  I  MJJUTTON) 

r 
I 

if   ('(if lags  &  MUJIHER!) 

graf_nouse(M_OFF,  OxOL); 
if  (SURE.shade  '=  PEN_ERASER) 
It  v_pline(vdi_handle,  2,  (WORD  I)  pxy);  XI 

v_arc(pict_hndl,x,y, radius, 0,3599); 
else 

eraser ((WORD)  pxy[2],  (WORD)  pxy[3]); 


graf_«ouse(l1_QN,  OxOL!; 
done  =  TRUE; 


} 
else 
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if  (ev.which  I  HUJIMER) 
{ 

Q--a+_BiOU5B(M_0N,  OxOL); 
iflags  =  MUJUTTON  !  HU_M1; 
} 

else 
{ 

if   (! (if  lags  It  hU_TIflER) ) 

graf_«ouse(M_OFF,  OxOUj 
if   (SURE_shade  !=  PENJRASER) 
{ 
it  v_pline(vdi_handle,  2,   (WORD  I)  pxy);  1/ 

v_arc(pict_hndl,x,y, radius, 0,3599); 

■flags  =  HUJUTTON  i  MU_Mi   !  HUJIilER; 
} 

else 
{ 

eraser! (WORDS  pxyC21,  (WORD!  pxy[33); 
graf_eouse(H_ON,OxOU; 

pxyfOl  =  pxy[23j 
pxy[l]  =  pxy[3]; 
} 
}  It   while  XI 

set_cl ip (FALSE,  Jtcurr_work); 
if   (  currhndl  ==  pict_hndl  )     5ave_pict_norkO; 
if  (  currhndl  ==  datahndl  i     save_data_workO; 
} 


IX ._ xi 

IX            eraser  Xi 

IX- XI 

VOID 

eraser!*,  y)  it  erase  rectangle  of  eraser  size  at  x,y  Xi 

WORD       x,  y; 

f 

WORD   erase_xy[43; 

if  (SURE_pen  ==  PENJINE) 

tj 

erase_xyd]  =  y  -  1; 
erasejy[23  =  x  +  2; 
erase_xy[33  =  y  +  1; 
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else 

it  (SURE_pen  ==  PEN_HEDIUH) 
{ 

erase_xy[0]  =  x  -  4; 

erase_xy[ll  =  y  -  2; 

erase_xy[21  =  x  +  4; 

erase_xy[3]  =  y  +  2; 
i 

else 
{ 

erase_xy[0]  =  x  -  t; 

erase_xytl]  =  y  -  3; 

erase_xy[2]  =  x  +  6; 

erase_xy[3]  =  y  +  3; 

vr_recfl  (vdi_handle,  erase_xy); 


mtnmiimntunminumminntmmuuimmnutmnji 

liiimimiiimmutiniiittinitiiuiiiiimmuiniiiiiiiiiiftit' 
inn  tun 

/ntt  SURE  Event  Handler  lttt/ 

imt  tun 

inuututtunttmttumtntintumttmnmnnmmtuntnn/ 
itttmmmmmmmmmmtmmmmmmmmtmtmtm/ 

ft a 

it  SURE  !/ 

it -- — t/ 

SURE!! 

r 

i 

BOOLEAN      done; 

keyjnput  =  FALSE; 
done  =  FALSE; 
FOREVER 

ev.Khich  =  evnt_iulti(  HU_HESAG  !  HU.H1,/*  NU.KEYBOf/ 

0x02,  0x01,  0x01, 

■_out, 

(UW0RD)  data_*ork.g_x,   (WORD)  data_nork.g_y, 

(UW0RD!  data_work.g_w,    (UW0RD!  data[«ork.g[h, 

0,  0,  0,  0,  0, 

ad_r»5q,  0,  0, 

liousex,  fciousey,  fcbstate,  fckstate, 

ikreturn,  &bc!icks); 

wind_update(BE6_UPDATE); 
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if  (!(ev_which  I  HU.KEYBD)) 
{ 

if  (key_input) 

{ 

cursoff  0; 
key_input  =  FALSE; 
save_data_nork(); 
} 
} 

if  (evjrtiich  &  HU_HESA6! 

if  (hndl.MgO) 
break; 


if   (ev_Nhich  t  HU.H1) 
if  (nndl_iouse(!) 
break; 

if  (evjrfiicli  k  KU_KEYBDi 

if   (hndi_keyboard(i) 
break; 

wind_upaate(END_UPDATE); 


} 


} 


!mntiiiniit!miiiii>nuintiiuiitu!U!imuH!ui!tui(iiHii; 

ituittiniiiinuiiimniiiiinmitutiimttmuiiiniiimmit!' 

/tut  mti 

IXXXX  Teraination  tttt/ 

ixxtx  ttw 

iiuniiiUiiUiumiuutiUiiiiMiiimniiiinnaiintutituuti 
/mmmtmmtmmtmitmmmmtttmmmtmmmtmm 


it - 1/ 

It        SURE_tert  XI 

ix — — %i 

9URE_terift!teri_type) 
WORD   tert_type; 
{ 

snitch  fters_type)  IX   NOTE:  all  cases  fall  through  XI 

{ 

case  (0  IX  nomal  teriination  */): 

do_close(pict_hndl,  gljifull/2,  gl_hfull/2); 

«ind_delete(pict_hndl); 

do_ciose(data_hndl,  gljrfull/2,  gl_hfull/2); 


103 


Hind_delete(data_hndl); 

case  (3): 

ienu_bar(OxOL,  FALSE); 

das_<ree  (pict_«-f  db.ap) ; 
case  (2): 

v_clsvwk (  vdi_handle  ); 
case  (I): 

«ind_update(END_UPDATE); 

appl_exit(); 
case  (4): 

break; 


} 


/ 


turn  Jim  nttimmjumnnmmmuimuuumimnmnni 
/tmmttmtmmtmmtmtmtttmtmmmmtmmtmmm/ 
ntu  tttti 

(tUt  Initialization  Mil/ 

fnmtmmmtmmmmmumnmmmmmnmmtmtmtf 

/MllltUUttUtlUtUttfUUtitiltlUUitttittttlitiMtUtltUlUttnr 

/I— - - 1! 

It  pictinit  1/ 

it : XI 

VOID 
pict_initO 

{ 

L0N5       tree; 

WORD        tr_cbj,  nobj; 

rsrc_gaddr(R_TREE,  SlIREINFD,  itree); 

trans_giaage(tree,  SUREIHG); 

rsrc_gaddr(R_TREE,  SUREPEND,  itree); 

for  (tr_oDj  =  SUREPFIN;  tr_obj  <=  SUREEBRD;  tr_obj++) 

r 
\ 

trans_gnage(tree,  tr_obj); 

LWSET (OBJYPE (tr_ob j I j  6_USERDEF) ; 

nobj  =  tr.obj  -  SUREPFIN; 

brushubCnobj ].ub_code  =  drawaddr; 

brushub[nobj].ub_par«  =  LLGET(OB_SPEC(tr_obj)); 

LLSET(OB_SPEC(tr_obj),  ADDR (ibrushubEnobj 3 > ) ; 
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IX %i 

IX           SURE  init         M 
,x x! 

WORD 

SURE  init  (J 


^ 


WORD  Mork_inCli3; 

WORD  i,pict_*,aat5_H,data_x; 

GRECT  box; 

LONG  tree; 

ql  apid  =  appl_init()j         It   initialize  libraries      tl 
if  (gl_apid  ==  -1) 

return (4); 
uind_update(BES_UPDATE); 
graf _i»ouse iH0UR_GLA5S,  OkOL); 
if  «~rsrc_lcad(~ADDR("SURE.RSCBJ  )) 
\ 

graf_iouse (ARROW,  OxOL); 

for§_alert(l, 

ADDR("[3][Fatal  Error  !  I  SURE. RSC IFi le  Not  Found3[  Abort  ]0!); 

return (i); 
} 

It  open  virtual  workstation        1/ 
for  d=0;   i <  1 0 ;  i++)     »crk_mCi 3  =  1; 
Hork_in[ 103=2; 

Qes_handie  =  graf  _handle  (ig  I_*ichar ,  tgl  _hchar ,  igl  _wbox ,  fcql  _hbo>: ) ; 
vdi_handle  =  ges_handle; 
v_Dpnvwk(Mork_in,!tvdi_handiel«ork_out); 

if   (vdi_haridle  ==  0!  return (1); 

scrnjiidth  =  «ork_outt03  +  I;     It  WIDTH    OF  SCREEN    in  pixels      XI 
scrnjieight  =  work_out[13  +  1;  It  HEIGHT  OF  SCREEN    in  pixels      XI 
5crn_xsize  =  »orfc_QutC31; 
scrn_ysize  =  work_outt43; 

char_fine  =  *ark_out[463; 
char_aediuft  =  work_out[483j 
char_broad  =  char_iediui  X   2; 

vq_extnd(vdi_handle,   1,  work_out); 
scrn_p!aries  =  *ork_out[43; 

scrn_area.g_x  =  0; 
scrn_area.g_y  =  0; 
scrn_area.g_n  =  scrnwidth; 
5crn_area.g_h  =  scrn_height; 
scrn_»fdb.sp  =  OxOL; 
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IX   ienu  bar  operations  1/ 

pict_init();  ft   transoms  &  user  defined  objects  1/ 

ad_r*sg  =  ADDRi'BYTE  t)  fcgl_risg[03)j 
rsrc_gaddr (R_TREE,  SURENENU,  &gl_aenu);  it   init  ienu  XI 
nenu_bar(gl_«enu,  TRUE);  IX   show  nenu  XI 


»ind_get (DESK, HF_WX YWH, &q1 _xf ul I ,&gl_y^ull ,^g]_wfull ,igl_h^ull ) ; 

IX   wcrkarea  of  DESK  window    XI 


IX  define  buffer  area  for  picture  window  Xi 
pict_t»fdb.fwp  =  lt(  5crn_width); 
pict_ffifdb.fww  =  pict_«fdb.fwp)>4; 
pict_afdb.fiLi    =  lt(  scrnjieight); 

pict_sfdb.np  =  scrn_planes; 
pict.sfdb.ff  =  0; 

pict_rect.g_x  =  0; 

pict_rect.g_y  =  0; 

p;ct_rect.g_w  =  pict_ifdb.fwp; 

pict_rect.g_h  =  pict_afdb.fh; 

si:e_pict_afdb  =  (LONG)  (ipict_«fdb.fwp:>3)+l)  I   (LONG) pi ct_af db . -f h  I 

(LQNGipict_sfdb.np; 
lcc_pict_«fdb  = 

pict_sfdb.ip    =  dos_alloc(5i:e_pict_a-fdb>; 
if   (pict_»fdb.ap  ==  01      return(2); 


IX  define  buffer  area  for  data  window  XI 
data_afdb.fwp  =  scrn_width; 
data_isfdb.fww  =  data_afdb.fwp>>4; 
data_afdb.fh    =  ll<  scrn_height); 
datajifdb.np    =  5crn_planesj 
data_«fdb.ff    =  0; 

data_rect.g_x  =  0; 
data_rect.g_y  =  0; 
data_rect.g_w  =  data_«fdb.fwp; 
data_rect.g_n  =  data_afdb.fh; 


si:e.data.afdb  =  (LONG)  ( (data.a-Fdb.-f wp>>3) -t-1)  X  (L0NG!data_afdb.fh  X 

(L0NS)data_efdb.np; 
!oc_data_afdb  = 

data_afdb.ap    =  dos_alloc(si:e_data_afdbi; 
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if  ■:data_«f db.mp  ==  0) 
return(2) ; 

ft   set  all  pixels  in  pict  buffer  to  zero  'white)  1/ 
rast_ap  (0,&pict_rect,ltpict_«f  db,fepict_rect,tepi  ct_«,f  db) ; 


It   set  all  pixels  in  data  buffer  to  :ero  (white)  XI 
ra5t_op(0,Sidata_rect,idata_(iifdb,fcdata_rect,idata_«fdb); 


ft   create  the  two  windows  'picture'  and  'data'  1/ 

pict_hndl=wind_create(OxOfef  ,gl_xfull-l,gl_yfull,gl_wfull,gl_hfull); 
data_hndl=wind_create(OxOfef,gl_xfull-i,gl_yfull,gl_wfull,gl_hfuli); 

if  (  [pict  hndl  ==  -!)  \l   (data  hndl  ==  -1)  ! 
{ 
fora_alert(l,  string_addr(SURENHDH)); 

return (3! ; 


graf_aouse(HQLIR_GLASS,  OxOL); 

wind_5et(pict_hndl,  WFJAht, 

(WORD)  LLO«D(ADDR(wdw_title!!,(WQRD)  LHIHD(ADDR(wdtt_title)),  0,  0); 

Hind_set<data_hndl,  wf_NAflE, 

(WORD)  LLOWDiADDRiwdw_tdata)),(WGRD)  LHIWD(ADDR(wdw_tdata) ! ,  0,  0); 

pict_w  =  (6tgl_wfull)/10  ;  ft  init  width  of  pict  window  X! 
data_w  =  (4tgl_wfull)/10  -  2;  It  init  width  of  data  window  1/ 
data_x  =  pi ct_w  +  2;  It  init  x-coord  of  data  window  1/ 

do_operi(data_hndl,gl_wfull/2,ql_hfull/2,data_x,gI_yfull, 
data_w,  gl_hfull); 

do_open(pict_hndl,gl_wfull /2,gl_hfull/2,gl_xfull,gl_yfuli, 
pict_w,  gljfull); 


wind  jet  !pict_hndl,NF_WXYWH,fcpict_work.g_x,ltpict_work.g_y, 

&pict_wark.g_w,&pict_work.g_h); 
It    init  workarea  of  pict  window 
wind  jet  idata_hndl,WF_WXYNH,&data_work.g_x,?<dat3_work.g_y, 

tdata_Hork.g_w,l(data_work.g_h!; 
ft   init  workarea  of  data  window 


XI 


t! 


pict_undo.g_x  =  0; 
pictjndo.g_y  =  0; 
pict_undo.g_w  =  pict_work.g_w; 
pictundo.gh  =  pict_work.g_h; 


ft   init  pict_undc  area  XI 
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data_undo.g_x  =  0; 

data_undo.g_y  =  0; 

data_undo.g_w  =  data_work.g_w; 

data_undo.g_h  =  data_work.g_h; 


It   init  data  undo  area  1/ 


rc_copvitpict_undo,ipict_prev_undo);  /I  init.  'previous'  undo   t! 
rc_copy;S(data_undo,?(data_prev_undo!;  It   areas  for  f ul  1/unf ul  1  ing  tl 


set_data_*ork (TRUE) 
rst_data_HDr k 0 ; 
init_data(); 


It  init  slider  bars  of  data  window  XI 
It  data  window  turns  white  1/ 
It   init  data  structures  tl 


set_pict_work(TRUE>; 
rst_pict_work.O ; 


It   init  slider  bars  of  pi ct  window  1/ 
It   pict  window  turns  white        tl 


graf_souse (ARROW, Ox 0L); 
wind_update(END_UPDATE); 

objc_xywh(gl_>enu,SUREDESK,icbox); 

rsrc_gaddr !R_IREE, INTRQ,itree) ; 

hndl_dial  !tree,0,box.g_x,box.g_y,box.g_w,box.g_y); 

desel_obj (tree, INTRQOkT; 

return (0); 


/tttuttutttutttttuttttttttttttttutttttttttttttttttttttttttttttti 

/ui!uiMiuMiiii!Unui!iiiii!unt!iiiiiuimMiiii!iuiuiti!t 
!%%%%  It 

(tUt  Mam  Prcgraa  tt 

/tttt  tt 

itntiuttnimnuiifiMnKiiiiuinHtiniuimiuiiiuniiiii! 
/tuttttttttttuttttttttttttttttttttttttttttttttttttttuuttttttttttt 


tt/ 
tt/ 
tt/ 
It/ 
tt/ 
It/ 
tt/ 


/t- 
/t 


5EMAIN 


/  j 

BERAINO 


•»/ 
tl 
■tl 


WORD   termtype; 

if   !!(tenn_type  =  SURE_ir.it 0 ) 

SURE!); 
SURE_teri(tem_type); 
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APPENDIX  C 


SURE  OPTIONS  LISTING 

This  APPENDIX  contains  all  the  code  required  to  enter 
and  label  the  Semi-markov  models  displayed  in  the  Data  and 
Picture  windows.  The  code  is  all  original  and  is  self 
documenting. 
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ititttiittttitmuttnitmttttttttHttiiitttttttttntttttuttutintt; 

it  xi 

it  This  is  the  SlIRE-options  portion  of  the  SURE  proqraffi.  All  XI 

it  routines  necessary  to  laplement  the  following  functions  are  ti 

it  contained  in  the  routine;  XI 

ft                            Enter  Constants  XI 

It                            Enter  States  XI 

it                            Enter  Transitions  1/ 

It                            Relipiot      -  Set-up  to  be  done  at  later  date  1/ 

,;t                            Hardcopy      -  Set-up  to  be  done  at  later  date  XI 

it  X! 

it  John  c.  Bordeaux  XI 

it  Naval  Postgraduate  School  XI 

it  Master's  Thesis  XI 

it  ti 
.  ut>tniiiti»)ntt>iitinutittHiui(!un>ittnirni)ititituttinir 


/j -l, 

ft      includes  XI 

lx j, 

♦include  "portab.h"  IX  portable  coding  conv  XI 

♦include  Machine. h"  IX  sactune  depndnt  conv  XI 

♦include  "obdet = . hn  IX  object  definitions  XI 

♦include  "treeaddr.h"  IX  tree  address  lacros  XI 

♦  include  5geffibind.h!i  IX  gee  binding  structs  1/ 

♦include  "sure.h"  IX  SURE  apl  resource  Xi 

♦include  'aath.h*  IX  lattice  c  XI 

♦include  'liiits.h1  It  lattice  c  XI 


♦include  "optstrct.h1 

♦define  TE_TXTLEN(x)  (x+24i 

IX "- XI 

it       preprocessor  utilities        XI 
IX . xi 

♦define        BALLOC(x)        (ix  tl  salloc(si:eof (x)! i 
♦define       CALLGC'n,  xi   ((x  X)  cailocin,  si:eofix!)i 

it XI 

it            OPT/SURE  defines      XI 
IX— XI 

♦define   ENB_UPBATE   0 
♦define   BEGJJPDATE   1 

♦define  MAXSTATE  100  IX  tax  mum  number  of  states  1/ 
♦define  MAXTRANS  200  IX  taxi  turn  rmaber  of  transition  XI 
♦define   ETCALC     0  It   Whites  algebraic  formula, E(t) XI 

♦define   START      1  It   indicates  the  start  state   Xi 

♦define  GEOMETRIC  FALSE  It  deselect  geoaetnc  XI 
♦define    prn;       EPSHSS10.FNT 
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It- 
It 
it- 


External  Functions 


■*/ 
1/ 
■tl 


EXTERN    LDNS   dos_alloc(); 
EXTERN    UHORD   DOS_ERR; 

/, 1, 

It          Global  Data  Structures  tl 
j% 1/ 

extern    struct  state_loc  5tate_array[MAXSTATEl; 

It -tl 

it        external  variables      Xi 
It tl 


extern 

WORD 

gl_wchar; 

extern 

WORD 

gljichar; 

extern 

WORD 

gl_wbox; 

extern 

HORD 

gl_hbox; 

extern 

WORD 

gi_rssg[8j; 

extern 

HORD 

gl_hspace; 

extern 

WORD 

SURE_pen; 

extern 

HORD 

Sl!RE_shade; 

extern 

HORD 

FENJRASE; 

extern 

HORD 

TIME; 

extern 

HORD 

POINTS; 

extern 

LONS 

PRUNE; 

extern 

HORD 

HARNDIG; 

extern 

HORD 

TRUNC; 

extern 

HORD 

LBFACT; 

extern 

HORD 

LIST; 

extern 

HORD 

title: 

extern 

WORD 

ydata; 

extern 

HORD 

radius; 

extern 

HORD 

geiis_handie; 

extern 

HORD 

vdi_handle; 

extern 

WORD 

work_outC57]; 

extern 

HORD 

ev_which; 

extern 

HORD 

vdi_handle; 

extern 

HORD 

curr_hndl; 

extern 

WORD 

pict_hndl; 

extern 

HORD 

data_hndl; 

ex  t  er  n 

HORD 

pen_shade  ; 

extern 

HORD 

SURE_height  ; 

extern 

HORD 

charjme; 

extern 

HORD 

char_i6ediui; 

extern 

HORD 

char_broad; 

extern 

HORD 

monufflber  ; 

extern 

LONG 

(so-f addr  ; 

It  character  width 

It  character  height 

It  box  (cell)  width 

it  box  i eel  1 )  height 

It  iessage  butter 


tl 
tl 

ti 
tl 

ti 


it   Ht.  of  space  between  lines  tl 


it  sission  time  tl 

it  nueber  of  pts  plotted/calc  tl 

it  deactivate  the  pruning  tl 

it  set  LIE  accuracy  1/ 

It  set  loop  traversal s  at  3  tl 

it  sets  the  Ki  and  Kj  =  20  tl 

it  sets  the  output  level  tl 

It  Current  data  line  tl 

It  Cureent  radius  ot  state  ti 

it  6EH  vdi  handle  tl 

it  SURE  vdi  handle  ti 

it  open  virt  workstation  values*/ 

it  event  sulti  return  state (s)  tl 


it  SURE  window  handle  ti 

it  SURE  data  window  handle  tl 

it  saved  pen  shade  tl 

it  SURE  current  char  height  1/ 

It  character  height  -for  tine  tl 

it  character  height  tor  sediUi  tl 

it  character  height  for  dread  ti 

it  souse  fori  nusber  t! 

it  souse  fore  address  ti 
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extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 


WORD 
WORD 
WORD 
WORD 

WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 


file_handle; 

key_xbeq; 

key_ybeg; 

key_xcurr; 

key_ycurr; 

runno; 

pathcount; 

cnttrunc; 

cntprune; 

bigst; 

i; 

nuffi  states; 


IX  file  handle  ->  pict  Id/sv  Xi 

it  x  posit  for  line  beginning  1/ 

It  y  posit  tor  line  beginning  XI 

IX  current  x  position  XI 

iX  current  y  position  XI 

It  run  nuaber  XI 

It  nusber  of  paths  XI 

It  nuaber  of  loops  truncated  XI 

it  nuflber  of  paths  pruned  XI 

it  largest  state  entered  so  fart/ 

IX  number  ot  states  entered  XI 


extern  DWORD  n_out  ; 

extern  DWORD  aousex,  aousey; 

extern  UWORD  bstate,  bclicks; 

extern  UWORD  kstate,  rreturn; 

extern  LONG  ad_resg; 

extern  LONG  gi_aenu; 

extern  LONG  drawaddr; 


IX  souse  in/out  of  window  flag  X! 

it  House  x,y  position  XI 

IX  button  state,  &  I  of  clicks  XI 

It  key  state  and  keyboard  char  ti 

It  LONG  pointer  to  aessage  bfr  XI 

IX  aenu  tree  address  ti 


extern 
ex  ter  n 
extern 
extern 
extern 
extern 


GRECT 
SRECT 
SRECT 
GRECT 

GRECT 
GRECT 


curr_work; 
pict_work; 
pictject; 
data_work; 
curr_undc; 
pict_undoj 


it  work  area  of  current  window  1/ 

IX  work  area  of  picture  window  XI 

!X  work  area  of  picture  window  ti 

it  work  area  of  data  window  XI 


extern  double  speclow; 

extern  double  spechigh; 

extern  double  specval; 

extern  double  ubfail; 

extern  double  Ibfail; 

extern  double  e_of_t; 

extern  double  ecf _t  del ; 

extern  double  pialpha; 

extern  double  lowbf ,lowbg; 


It  variable  range  value  t! 

IX  variable  range  value  1/ 

It  special  variable  value  ti 

IX  prob  of  system  failure  XI 

IX  lower  bound  of  failure  Xi 

IX  E(T)  computation  result  Xi 

IX  E(T-t)  coaputation  result  ti 

IX  product  of  the  alphas  Xi 

IX  interaediate  results  XI 


extern  BOOLEAN  key_input;  IX  key  inputting  state  XI 

extern  BOOLEAN  erun;  IX  runtiae  errors  flag  XI 

extern  BOOLEAN  nonlinear;  IX  nonlinear  flag  Xi 

extern  BOOLEAN  et_bad;  IX  E(T)  coap.  is  inaccurate   XI 

extern  BOOLEAN  rec_slcw;  IX  recovery  too  slow  XI 

extern  BOOLEAN  std_big;  IX  Rec  Std.  too  big  Xi 

extern  BOOLEAN  rate_big;  IX  Exp.  rate  too  fast  XI 
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/iuttttttntttttttttttimttttttttttttttmtitttttttttttttmttitttttt' 

It  DATA  INPUT  SECTION  XI 

/tmimttttttmtutmtumttsmuMsttttmttimtmtstmttmt/ 

/»— XI 

it  initjata  XI 

/i : 1/ 

init_data() 
i 

WORD        1 ; 


for  (  i  =  1;  i  <=  ESTATE;  i++) 

/ 
i 

5tate_array[i3.x_coord  =    0; 

state_arrayti].y_coord  =    0; 

} 

)l%  init  data  XI 


IX— 

- -XI 

it                    QO_ 
/ 1 

constants        XI 
*/ 

/  » 

1/ 

VOID 

doconstant: 

:() 

i 

SRECT 

box; 

LONG 

tree; 

LONE 

cons_addr,valu_addr; 

BYTE 

dnaie[133,dvaiu[25]; 

KURD 

exit_obj; 

It   This  routine  defines  the   XI 
it   values  of  the  constants    XI 


i 


5ave_data_Hark(i ; 
set_dip  (FALSE, ipictjiork); 
set_dataj*ork(TRUE); 

set _ciip (TRUE, Wata_work)j 

FOREVER 

r 
\ 

obj:_xywh(qi_!8enu,5LlRE0FTS,J(bo>:!; 

rsrc_gaddr(R_TREE,ENTERCON,itree); 

exit_obj  =  hndl_dial (tree, 0, box. g_x,  box.o_y,  box.g_w,  box.g_h> ; 

desel_obj(tree,CQNSTYES); 

if  (  exit_obj  ==  C0NSTN0) 
{ 

deseI_Qbj!tree(C0NSTN0); 
rst_data_Hork(i; 
set_pi  ct_wor k (TRUE) ; 

set_cIip(TRUE,&pict_wcrk); 
return; 

l 

; 
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Dbjc_xywh(gI_»enu,SUREQPTS,l(box] ; 
rsrc_gaddr(R_TREE,ADDCONST,J(tree)i 

con;  aodr  =  LLGET<QB_SPEC(CONSNAHE)); 
valu'addr  =  LLSET (0B_5PEC (CONSVALU) ) ; 

LLSETi  cons_addr,  ADDRidnaae)  ); 
LLSET;  valu_addr,  ADDRidvalu)  ); 

LWSETi  TE_TXTLENicons_aadr),  9); 
Lle'SET*  TE_TXTLEN(valu_addr),21); 

dnametO]  =  '\0!; 
dvalufOj  =  '\0'j 
it ihnd!_dial  (tree, CQNSNAHE, box. g_x,  box.g_y,  box.gji,  bo>: . g_n ) 

==  ADDCQNOK  ) 

rst_data_ttork() ; 

vst_height(data_hndl  ,char_fine,  igljichar,  ltgl_hchar, 

fcgljrfchar  ,  ql_hchar); 
v_gtext(data_hndl,  data_work.g_x+5,data_work.g_y+ydatatE,dna*e)j 
v_gtext(data  hndl ,  data_nork.g_x+80,datajiork.g_y+ydatatB, "=*); 
y_gtext(data_hndl,  data_wQrk.y_x+90,data_wDrk, g_y+ydatat8,dvalu) 
vst_height(data_hndl   ,char_*ediu»,  4gl_wchar,  &gl_hchar, 

&gl_wchar  ,  gl_hchar); 

save_data_»ork(! ; 

rst_data_werk() ; 

desei _ubj  (treSjADDCQNOK) ; 

ydata++5 


\\triuttu\iuttttuitiitiiiuutiituuiiuutiiiimtinnnunu 
IX  XI 

it  This  is  the  Enter  states  portion  o*  the  Sure  program.  XI 

n  ts 

ixxxxxxxxxxtttttxtxxxxxxttxxxtxtxixxxxxtxtxtxtxmxxxtxtxtxxxxxxxxxxxtxi 

/I __._!/ 

it             do_states  XI 

IX -xi 

VCID 

do_states()  IX   This  is  the  work  Horse  of   J/ 

i  IX   enter  states.  XI 

ERECT   sta_area  ,box; 

lQNG   tree; 
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9ra-f_»ou5e(«onusber,mo-faddr ! ; 

sta_area.g_>;  =  pict_«ork.g_x  +  35;  IX  This  box  defines  an  area  on  Xi 

sta_area.g_y  =  pict_**ark.g_y  +  19;  IX  the  screen  to  insure  states  XI 

staarea.gw  =  pict_work.Q_«  -  50;  it  do  not  overlap  the  bounday  Xi 

sta_area.g_h  =  pict_work.g_h  -  30; 

while  intestates  <=  MftXETATE) 

{ 

ev.which  =  evnt.nulti  fMUJUTTON  1  HU_Mi  , 

GxOi,  0x01,  0x01, 

t 

(UHORD)  pict_Mork.g_x,  (UwORD)  pict_work.g_y, 
(UHQRD!  pict_worLg_w,  (UWORD)  pict_nork.g_h, 

0,  0,  0,  0,  0, 
ad_r«sg,0,Q, 

Jffiouse,", ,  Mousey,   Estate,  Estate, 
^return,  ibclicks); 


if  (  evjthieh  &  HU.BUTTDN) 

{ 

if   (!inside(ffioii5ex,fflousey,^sta_areai!  fei 
(!too_clo5e(BOU5ex,*ousey,nufi_5tates) i  i 

r 
V 

draw_st  at  e  i  sousex ,  mousey ,  misstates) ; 
evnt_ti«er (500,0) ; 

state_array[nus_state5].x_coord  =  souses; 
5tate_array[nu«_states].y_coord  =  SDusey; 

It  state_array[num_states3.x_coard  =  pict_undo.g_x  + 

(  sousex  -  pict_work.g_x) ; 
state_array[nuffi_states].y_coord  =  pict_undo.g_y  + 
(  iousey  -  pict_work.g_y) ; 
XI  nuffi  states++  ; 

} 

} 

it   !  ev_which  k  HU.Hl) 

save_pict_nork(); 
return; 


/ 


\ 
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IX 1/ 

It  draw  state         1/ 

f% : %i 

WORD 

draw  state(x,  y  ,nu*_s)  IX   This  routine  draws  and     XI 

WORD   nuft_s;  !%   labels  the  state  at  the    XI 

UWORD   x,  y;  /t  x,  y,  location.  The  state  X! 

{  it   is  labeled  with  the  value  XI 

UHORE   x_next,y_next;         /I  contained  in  nuffi_s.       XI 

UMORD   x  t , y  t ; 

BYTE   nu(6_str[20i; 

9ra^_siou5eiH_urF,  OxOL);        /t  Turn  souse  off  1/ 

itoa(nus  s.nuu  str);  IX   Convert  nua_5  to  a  string  XI 


It    radius  =  16;  XI 

i-f  (nui_s  <=  9)  It   The  nest  set  of  statements  XI 

£  IX   determne  where  to  label   XI 

set  =  x  -  3;  IX   the  state  (or  sediui.     XI 

yt  =  y  +  2; 
} 

if  iinus_s  >=  10!  \A   (nus_s  <=  99!) 
{ 

xt  =  x  -  B; 

yt  =  y  +  2; 

it  (  nui_s  )=  100! 
xt  =  x  -  12; 

yt  =  y  +  2; 
} 

vslj»idth(pict_hndl,l); 
V5l_ends(pict_hndl,2,2)j 

v_arc(pict_hndl,x,y, radius, 0,3599);    IX   Draw  state  here   </ 
IX  draw_pencil (x,y);   1/ 

vsi_widthipict_hndl,l); 
v_gtext(pict_hndlj  xt,  yt,  nu»_str);   IX   Label  state  here  XI 

grat_aouse!fl_0N,  OxOL);         IX   Turn  iouse  on  XI 


IX ,/ 

IX            guess  XI 

IX XI 

gues5(x_curr,y_curr,x_next,y_next,ptg)  It   guess  the  next  state  locat.  X! 
UHORD  x_curr,y_curr,x_next,y_next; 
GRECT  tptg; 

{ 
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if((  x_curr  +  60)  (=  (ptc->g_x  +  ptg->Q_ta) ) 

{ 

x_next  =  x_eurr  +  60; 

y_next  =  y_curr; 
} 
else 

x_next  =  x_curr; 

ynext  =  y_curr  +  60; 

)lt     guess  XI 


IX - 

— -XI 

IX             toQ_cIose 

XI 

/* 

t  .■ 

/ 1 

1; 

too_close(x  ,y  ,  nua  ) 

UHORD   ;<,  y; 

WORD    nue; 

{ 

WORD   i ; 

UfcORD  x_te»p,  y_teap; 

IX  This  routine  determines  it  XI 

IX  the  states  are  too  close,  XI 

IX  it  takes  the  absolute  value  XI 

IX  o-f  the  difference  between,  XI 

IX  the  present  touse  position  XI 

IX  and  state  positions  that  XI 

IX  area  stored  in  an  array  XI 

if  '.  nuffi  ==  1  )  IX  called  state_array.  XI 

return (FALSE); 

nun  =  nun  -  1; 

tor  (  i  =  1;  i  <=  nus;  i++) 

r 

x_tedp  =  absi  x  -  state_array£i j.x_coord>; 
y_teap  =  abs(  y  -  state_array[i3.y_coordl; 

i-fi!  x_teap  <=    75)  hi  (y_te«p  (=  40) i 

return (TRUE); 
; 

return (FALSE!; 
}  IX   too  closet/ 
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/tttttmmmiummmtmttttmttmtttstmmtmmtmtmtt/ 

/t  %l 

ft  This  is  the  transitions  section  o-f  Sure.  The  routines  used  to   XI 

/t  draw  and  input  the  data  for  the  transitions  between  states  is   1/ 

ft  included  in  this  section.  \l 

It  1/ 

,iiinnuiUH»mnjuuinj>uuuunuHunuujniniiHinnin 

It- */ 

it            get_slow()  1/ 

it xi 

EiTE 

Jy=1L_sloh(tro(6s,tos)  It   d i al oque  box  input  rate    1/ 

WORD   froBS,tos; 

.c 

LONG  tree; 

LONG  ted_addr; 

BRECT  box; 

BYTE  tnasie; 

double  atofii; 

VALREC  mean, stdev, tract; 

save_data_nork i! ; 

ob jc_»ywh (gl _»enu,  SLiREQPTS, ibox ) ; 
r5rc_gaddr(R_TR£E,SURESLQW,&tree); 
ted_addr  =  LLGET (0B_SPEC (SLGWLAHB) ); 
LLSETi  ted_addr,  ADDR(nane)   !; 
LHSET<  TE_TKTLEN(ted_addr),  9!; 

it  (hndl_dial  ( tree  ,SLOtlLAKB,  box.  g_x,  box.  g_y,  box.  g_w,  box.  g_h! 
==  SLOHOK) 

{ 

de5el_obj (tree, SLOHOK); 

Bean. base  =  atof (nase); 

sean.coet  =  ator  mase); 

stdev. base  =  -1.0; 

stdev, coef  =  -1.0; 

fract.base  =  1.0; 

fract.coet  =  1.0; 

enter  (fro«5,t os, Uean,lstdev,lsfr act) ; 

return (name) ; 

i 
j 

}    It    get.SlQwO    1/ 
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I% XI 

It             get  fastO  1/ 

IX XI 

BYTE 

get  fast  (froGs.tos./BeanjStdevjfra!:'1        It  dialogue  box  input  rate  1/ 


WORE 

froas,  tos; 

BYTE 

tiean, tstdev, If rac; 

LONG 

tree; 

LONG 

nean_addr; 

LONG 

stdev_addr; 

LONG 

frac_addr; 

GRECT 

box; 

double 

atof  0; 

VALREC 

tfiean,  tstdev,  ttract ; 

save  Qi 

ita  work!) ; 

objc_xyt»h(glj»enu,Sl]REGPTS,lbox) ; 
rsrc ~g  addr (R^TREE , SUREFAST , itree ) ; 

»ean[03    =  '\0'; 

iiean_addr  =  LLGET(QB_SPEC(BUREMEAN) > ; 

LLSETi  sean_addr,  ADDR (mean)  !; 
LWSET  >;  TE_TXTLEN(«ean_addr),  9); 

stdevCOl  =  }W\ 

5triev_addr  =  LLGET (QB_SPEC (SURESTD) ) j 

LLSETi  stdev_addr,  ADDR(stdev)  ); 
LWSET ■,  TE_TXTLEN(stdev_addr),  9); 

fracfO]  =  '\0'j 

frac_addr  =  LLGET  (OBJPEC  ■BUREFRAC5 1 ; 
LLSET(  frac_addr,  ADDfiifrac!  ); 
LWSET i  TE_TXTLEN!frac_addr),  5); 

if  (hndl_dial  (tree, SUREMEAN, box. g_x, box, g_y, box. g_», box. g_h! 
==  FASTOK) 


{ 


desel_obj (tree, FASTOK!; 

taeari.base    =  atof  !aean); 

taean.coef    =  atof  dean) ; 

tstdev. base  =  atof (stdev) ; 

tstdev. coef  =  atof (stdev) j 

tfract.base  =  atof(frac); 

tfract.base  =  atof(frac); 

enter  (fro»s,tos,iitiean,itstdev,titfract); 


}  It  get_fastU  XI 
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IX xi 

it             dc_fast_transitior:    I! 
IX xi 

VOID  It   This  routine  determines  the  ti 

do_fast_tran5ition()  It   fross  and  the  tos  tor  inputs / 

{  It   for  input  of  transition  data!/ 

WORD  exit_obj,froms  ,to5j 

GRECT  box; 

LONG  pxy[43,tree;  It  define  pxy  array  as  a  long    ti 

double  dfalpxy[43j  It  redefine  pxy  array  as  doublet/ 

BYTE  leant  13], stdevt 133, frac[?3; 

set_pict_work(TRUE); 
5et_clip(TRUE,  &pict_worki; 

graf  _9\ouseifflonuaber,Bof  addr) ; 

ev_ifhich  =  evnt.aulti  (NU_BltTTON  I  HU_H1  . 

0x01,  0x01,  0x01, 

1) 

(UHORD)  pictwork.gx,   (UHORD)  pict_work.g_y, 

(UH0RB)  pictjiork.gji,   (UHORD!  pict_nork.__h, 

0,  0,  0,  0,  0, 

6  d  _  r  ff 1 5  g ,  0, 0, 

JeBousex,  fciousey,  Estate,  Estate, 

fekreturn,  jtbdicks): 


if  (  ev_nhich  I  MU.Ni: 

5ave_pict_»*orki! ; 

return; 


It   exit  if  souse  out  of  window  ti 


if  !  ev  which  &  HI  BUTTON ) 
{ 

if     (which_5tate(iou5ex,»ousey,ltfrDi5) ) 

{ 

pxytO]  =  state_array[froins3.x_coord  ; 

pxy l  1 3  =  state_arraytfroBs3.y_coord  ; 

dblpxytO]  =  pxytO];     It   store  x  ( -f r cas ) -1  oc at i on t / 

dblpxytl]  =  pxy[13;     It   store  y!frois)-locationt/ 

evnt_ti»er (500,0); 

) 

It  After  fro*  state  is  selected  loop        ti 
do  It  until  a  good  to  state  is  selected        ti 

£ 

evjihich  =  evnt_sulti(KU_BUTTQN  !  «U_H1  , 
0x01,  0x01,  0x01, 

1, 

(UHORD)  pict_work.g_x,  (DWORD)  pict_work.g_y, 
IUHQRD)  pict_Hork.g_w,  (UHORD)  pict.work.g_h, 
0,  0,  0,  0,  0, 
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ad_r«sg,0,0, 

feieousex,  fcaDusey,  tibstate,  fckstate, 

fcfcreturn,  Icbclicks) ; 

if   !  ev_which  &  KUJ11) 

{  It  exit  if  louse  out  of  uindow  XI 

save_pict_workO; 
return; 
} 
}  while  (!((  ev_»hich  h  HUJUTTON)  M 

f  which_st at efsousex, mousey, itcs)  I)); 

p x y [ 2 ]  =  state_arraytto5].x_coord  ; 
pxy[31  =  5tate_array[tos3.y_coord  ; 
dblpxyC23  =  pxyC2]; 
dblpxy[31  =  pxy[31; 

dra»_tran(l(dblpxy,frois,tos); 
save_pict_Mork(); 

save_data_Hork 0; 

IX   Prepare  to  get  the  transition  data   \i 
It   draw  dialog  bo*  for  fast  transition  X! 

get_fast  (fross,tos,t(«ean,Ji5tdev,iifrac) ; 

IX  label  the  data  window  XI 

lab_f  ast_window!froiiis,tos,JtBeari,istdev,l(frac) ; 

IX  label  the  fast  transition    XI 
label_fast(&p::y,fro»s,to5,?<i6ean,istdev,&frac!; 
rst_pict_work(); 
rst_data_nork()j 
sel_pict_work(TRUE); 
set'dipiTRUE,  &pict_work) ; 
return; 


return; 
}  IX  do  fast  transition  XI 


IX 1/ 

IX            dosloM  transition    XI 
IX— X! 

VOID  IX   This  routine  determines  the  XI 

do_5low_transition()  ft   fross  and  the  tcs  for     XI 

i  It   input  of  transition  data   XI 

WORD   i  ,frous  ,tos; 

GRECT   box; 

LONG   pxy[4j,tree;  IX   define  pxy  array  as  a  long  Xi 
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double  dblpxy[4];  IX   redefine  pxy  array  as  doublet.' 

BYTE   cnaffie[13],tget_slowl); 
BYTE   pstrE133; 

graf  _»oiise(Bonufiber,ftofaddr! ; 

set_cl ip (TRUE,  ipictjiork); 


evjrtiich  =  evnt_«ulti  (MUJUTTON  !  MUJ11  , 
0x01,  0x01,  0x01, 

1, 

(UHGRD)  pict_«Qrk.g_x,   (UHORD)  pict_work.g_y, 

(UWGRD)  pict_work.g_w,    <UW0RD)  pict_work.g_h, 

0,  0,  0,  0,  0, 

ad_risg,0,0, 

tiousex,  iBousey,  Sib  state,  fckstate, 

fckreturn,  ibclicks); 


if  !  evjihich  k  MU_KI > 

[  IX  exit  if  BiGuse  out  of  window  XI 

save_pict_Ncrk(i; 

return; 

} 
if   i  evjihich  &  HUJUTTON) 

r 
\ 

if     lnhich_5tate{iDU5BX,*Dusey,ifrDB5) ! 

{ 

p k y [ 0 3  =  state_array[froGis3.x_cocrd  ; 

pxy[13  =  5tate_array[froii53.y_coord  ; 

dblpxyiO]  =  pxy[03;  IX  store  x  (frossz-location!/ 

dblpxytl]  =  pxyC13;  IX  store  y (f roms) -locati ont/ 

evnt_tiier (500,0); 

IX   After  fros  state  is  selected  loop   XI 
do  IX  until  a  good  to  state  is  selected   XI 

{ 

evjihich  =  evnt  juilti  (MUJUTT0N  !  MUJ11  , 
0x01,  0x01,  0x01, 

1. 

(UHORD)  pictjiork.gj,   (UHORD)  pict_work.g_y, 
(UHORD)  pictjiork.gji,   (UH0RB)  pictjiork.gji, 

0,  0,  0,  0,  0, 

ad_rBsg,0,0, 

Jtsousex,  SiBousey,  fcbstate,  ikstate, 

fckreturn,  fcbclicks); 

if   (  ev  which  k  MU  Ml) 


122 


(       IX   exit  if  iouse  out  of  window  XI 
save_pict_work(!; 
return; 
} 
}  while  !!({  ev_which  k  HUJUTTON)  M 
!  nhich_5tate(souse>!,Bou5ey,l!to5) I)); 

pxy[23  =  state_array[tos].x_coord  ; 
pxyC3]  =  5tate_array[to5l.y_coord  ; 
dblpxy[2]  =  pxyf2]; 
dblp>.y[3]  =  pxy[31; 


draw_tran(ybipxy,froi5,to5);  It   draw  arrow 


XI 


IX  Prepare  to  get  the  transition  data   1/ 
IX   draw  dialog  box  for  slow  transition  X! 

save_pict_work(); 

5ave_data_WDrk(}; 

strcpy(cnane  ,  get_5low(froffls,tos) ) ; 

rst_data_wor k { ) ; 

rst_pict_work!i; 

save_pict_work(! ; 

lab_slow_window({ro95,tos,knaffiei; 
5ave_data_work() j 

label_slow(lpxy,froBS,tD5,icna*ei; 

IX  Label  slow  transition  1/ 


} 


set  _dip  (FALSE, ipictjiork); 

return; 
)  IX   do  slow  transition  XI 


jx xi 

It  which_state  XI 

ix : -xi 

uhich_5tate(x  ,y  ,curr_st) 
UHORD       x,  y; 
WORD         *curr_st; 
{ 

WORD      i,nue; 

UWORD    x_tenp,  y_temp; 


IX  This  routine  detenines  the  XI 
IX  state  which  is  under  the  XI 
IX  souse  cursor  XI 


nu«  =  nu«_states  -  1: 

for  (  i  =  1;  i  <=  nun;  i++) 

{ 

x_teap  =  absi  x  -  state_array[i].x_coord); 

y_temp  =  absi  y  -  state_array[i 3. y_coord! ; 
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if((  x.teip  <=  18)  Ik   <y_teip  <=  18)) 

{ 

tcurrst  =  i ; 

return (TRUE);  IX   return  TRUE  it  state  is  parti/ 

}  (X   state_array  XI 

J 

return (FALSE); 
}  It  which  state  1/ 


/I 

-Xi 

1%            dra*_tran(pxy) 

XI 

/# 

/♦ 

'#/ 

VOID 

dran_tran(dblpxy,frDii5,to5) 

double   tdblpxy; 

WORD    trof&s,tos; 

t 

double  ydi-ff,  x_di-f f ; 

double  angle  : 

LONG   lngpxy[43; 

WORD   pxy[43; 

double  5in(),cos(!,atan2() 

* 

it   This  routine  draws  the  line  XI 
it   between  the  states.       XI 


IX   Distance  between  lro»s  and  XI 
IX  tos.  1/ 


y_diH  =  dblpxy[31  -  dblpxytil:    It   Compute  distance,  yl  -  y2  XI 
x_ditt  =  dblpxy L2j  -  dblpxy[03;    IX  Cospute  distance,  xl  -  x2  Xi 

it  (  x_di-f f  !=  0  ! 

angle  =  atan2(y_diff  ,  x_diff);/l  Cospute  angle           1/ 
else 

angle  =  i. 570796327; 

IX   find  the  edge  o+  the  circle  1/ 

IngpsyEO ]  =  cosiangle)  t   !6.0  +  dblpxy[03; 

lngpxyfl]  =  sin (angle)  i  10.0  +  dblpxyC 1 3; 

ingpxy[23  =  dblpxy [2]  -  cosfangle)  t   16.0; 

lngpxyE33  =  dblpxy[33  -  sin(angle)  t   10. C; 

pxyEO]  =  lngpxyEOl;          IX   convert  to  integer        XI 

pxyEl]  =  lngpxyfllj 

pxy[23  -  lngpxy[21j 

pxy[33  =  lngpxy[33j 

IX    yswr_ffode(pict_hr.dl  ,MD_REPLAC£)  5 
1/  vsl_width(put_hndl,l); 

vsi_color(vdi_handle,3URE_shade); 

vsl_ends(pict_hndl ,2, 1) ; 

v_pline(pict_hndl,  2, (WORDt)pxy);  IX  draw  arrow  between  states       XI 

vsl_width(pict_hndl,l); 

V5l_ends(pict_hndl,2,2); 
}  It  draw  tran  XI 
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/, -a 

IX  label_fa5t_transition  XI 

n :„_.: Xi 

VOID 

label  fast (pxy,-fro«s,to5, *ean,5tdev,frac! 

IX   This  routine  labels  a  fast  XI 


LONG    tpxy; 

WORD    {ross,tos; 

BYTE    taeari,  tstdev ,  t-f rac; 


IX   transition  between  states.  XI 


WORD      y _di -f f ,  x_diff; 
WORD      xs,ys,x5,ys,xf  f  y-f ; 


/J  Distance  between  froi&s  and     1/ 
/I  tos.  t/ 


set _pict_work (TRUE); 
5et_dip  (FALSE,  idata_work); 


y_ditf  =  p x y [ 3 ]  -  pxyEll; 
x_dift  =  pxy[2]  -  pxy[03; 


IX   Coapute  distance,  yl-)  y2  XI 
IX   Coupute  distance,  xl->  x2  Xi 


y«  = 


xt  = 
yf  = 


35  J  *_diH  +  pxy[03; 
35  X  y~dif -f  +  pxyCnj 

5  X  xjJiff  +  p >-; y C 0 3 ; 
5  t  y.diH  +  pxy[l3; 

65  X   x_dift  +  pxy[03; 
65  J  y_di-H  +  pxyCll; 


vst_height(data_hndl  ,char  -f ine,  &gl_*char,  fegl _hchar , 

*ql _rtchar  ,  gl_hcharl; 
v_gtext  (datahridl , xro+3, ya, mean) ; 
v_Qtext(data_hndl,xs+3,ys,stdev); 
v_ytext(data_hndl,xt+3,yf ,+raci; 
vst_height(data_hndl  ,char_iiediua  ,  fcgl_nchar,  &gl_hchar, 

igl_wchar  ,  glhchar); 

save_pict_t*ork  < ) ; 
rst_pict_nork(); 
set _pict_work (TRUE); 
set_cl  i  p  (TRUE,  Stpi  ct_work) ; 

}  IX  label  fast  XI 
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n a 

it  label  slow  transition     XI 

„ i.—i x! 

VOID 

label _5low(pxy,{ro»s>tG5,cnafie> 

LONG    tpxy; 

WORD    +ros.5,tDs; 

BYTE    tcnaae; 

{ 


IX   This  routine  labels  a  slow  </ 
IX   transition  between  states.  t; 


WORD   xl,yl; 


xl  =  pxyC03  +  25; 
yl  =  pxytll  -  5; 

yst_heightidata_hndi   ,char_-fine,  feyl _wchar ,  ScqI _hchar , 

feqi_wchar  ,  glhchar); 
v_gtest(data_hndl!xl,yl,cna«e); 

vst_height!data_hndl  ,char_sedius,  &gl_wchar,  &gl_hchar, 
&gl_wchar  ,  glhchar); 

5ave_pict_Mork()| 

rst_pict_work(); 
}  iX   labei  slow  XI 


H ti 

!X             1  ab_-f  ast_wi  ndow ! )  1/ 

IX — X! 

VOID 
ldbJast_windoi»(froa&,tos,ieari,stdeY,frac) 

ft  This  routine  writes  the         t,; 

IX  indorsation  that  has  been      XI 
WORD        frois.tos;  !X  entered  to  the  data  winces     1/ 

BYTE       Uean,Jstdev,tfrac; 


{ 


BYTE   fross_str[5],tos_str[53j 

set_data_worlr.fTRliEi; 
set_clip(FALSE,&pict_norki; 

rst_da:a_work() ; 


itoa!-fro*5,frosi5_str); 
itoa(tos,tos_str J ; 


IX  Convert  froas  to  a  string      XI 
IX  Convert  tos  to  a  string  XI 


vst_height idata_hndl   ,char_fine,  &gl_wchar,  fegl_hchar, 

5<gl_wchar  ,  gl_hchar); 
v_gtext (data_hndl ,data_«ork.g_x+5,data_Mork.g_y+ydatal8,froes_5tr) ; 
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v_gtext(data_hndl,  datfl_work.g_x+2j,data_Mork.g_y+ydata*3,"To'';; 
v  gtext (data_hndl ,  data_t<ork.g_x+50,data_tiDrk.g_y+ydatai8,tO5_5tr] 
v_gtext (data_hndl ,  data_nork.g_x+75,data_Hork.g_y+ydataJ8,neari) ; 
v_gtext(data_hndl,data_nork.g_x*130,data_work.g_y+ydatatB,5tdev)j 
v  gtext (data_hndl,data_nork.g_x+190,data_wDrk.g_y+ydatatS,frac); 
vst_height(data_hndl  ,char_ieediuB,  &gl_«char,  &gi_hchar , 
igljtchar  ,  gl_hchar); 

5ave_data_work (!; 
rst_data_work(); 

ydata++; 

set_pict_work(TRUE); 
5et_clip(TRUE,lipict_work); 
rst_pictjtork() ; 

}  /$  lab  fast  window  0   XI 


lab  slow  window!) 


■XI 
XI 

■XI 


It- 
it 

u 

VOID 
lab_slon_windot((froM,to5,criaie! 


BORE        tross,tos; 
BYTE        Icnama; 
\ 

BYTE   fro«s_5tr[53,tD5_5tr[53; 


It  This  routine  writes  the  XI 
IX  information  that  has  been  XI 
it   entered  to  the  oata  window  XI 


set_data_wark (TRUE) ; 

set_chpiTRUE,fcdata_work}; 
rst_data_work(); 


itoa!  +  rcffi5,froii5_5tr); 
itoa(tos,tos_str) ; 


IX   Convert  frois  to  a  string  XI 
It   Convert  tos  to  a  string    XI 


vst_height idata_hndl   ,char_fine,  &q!_wchar,  Jtgl_hchar, 

&gl_wchar  ,  glhchar); 
v_gtext(data_hndlldata_nork.g_x+5!data_MDrk.g_y+ydatat8,frots_5tr); 
v_gtext(data_hndl,data_>iork.g_x+25,data_work.g_y+ydatat8,,To*)j 
vgtext  fdata_hndl,data_work.g_x+50,data_work.g_y+ydata4B,tos_str) ; 
v_gtext<dataJwdl,data_work.g_x+75,data_work.g_y+ydataJB,cnafie5; 
vst_height(data_hndl  ,char_iedius,  igl_wchar,  »:gl_hchar, 

&gi_wchar  ,  gl_hchar ) ; 

save_data_wcrk  0 ; 
rst_data_work() ; 
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yddta++; 

5et_pict_work(TRUE5; 
set_clip (TRUE,fcpict_wart) 5 

rst_pict_work  0 ; 
It   lab  slow  window!)  %l 


li- 
ft 
It- 


dc_plot 


■*/ 

t! 

-»/ 


VOID 
do_pl ot  (! 


save_data_work i! ; 

set. clip (FALSE, &pict_work! ; 

set _data_work (TRUE) ; 

set_clip(TRUE,&data_wcrt); 

vst_height(data_fmdl  ,charjfine,  igl_wchar,  fcgl_hchar, 

&gl_wchar  ,  gl_hchar); 
ydata++; 
v_gtext(data_hndl,data_work.q_>!+5,dat3_wori'.g_y,-ydatai3, 

SPLGT  RELIABILITY  HAS  BEEN  CALLED0;:     ydata*+; 
V5t_height(data_hndl  , char_iedius,  lcgl_wchar ,  &gl_hchar, 

fcgl_wchar  ,  gl_hchar!; 
5ave_data_wori<  0 ; 
rst_data_worl  0 ; 
set _pict_work (TRUE); 
set_clip(TRUE,&pictjiork); 


It— 
It 

i\ 

VOID 
do_hardcopy() 


do  hardcopy 


■M 

XI 


saye_data_work(! ; 

set_dip  (FALSE, fcpictjiorklj 

5et_data_work(TRUE); 

5et_clip(TRUE,ltdata_work) ; 

vst_height(data_hndl  ,char_fine,  8tgl_wchar,  igl_hchar, 

igl_wchar  ,  gl_hchari; 
ydata++; 
v_gtext (data_hndl  ,data_work.g_x+5,data_work.g_y+ydataJ6, 

"DO  HARB.COPY  HAS  BEEN  CALLED');  ydatat+; 
vst_height(data_hnd]  ,char_iediuii,  &gl_Mchar,  &gl_hchar , 

igl_wchar  ,  gl_hchar); 
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save_data_work !»; 
r5t_data_«ork(); 
5et_pict_nork<TRUE); 
&et_cl  iplTRUE,  8epict_work> ; 
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APPENDIX  D 


SURE  COMPUTATION  LISTING 

This  Appendix  contains  the  modules  required  to  do  the 
SURE  Computations.  The  modules  are  generally  the  original 
SURE  computations  modules  converted  from  Pascal  to  C. 
Several  additional  modules  were  required  for  the  interface 
into  the  GEM  environment. 

The  enclosed  listings  are  not  the  final  listings  of  the 
SURE  program.  The  latest  listings  are  available  on  disk. 

The  computation  module  contains  debugging  aids,  the 
module  is  not  fully  functional. 
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/nnnnnnnnminnnntnntnnnnnnnnnmtnnnnttnn 

/l  1/ 

1%  This  is  the  SURE-Coipute  portion  of  the  SURE  program.  All    Xi 

It  routines  necessary  to  lspieoient  the  f oilawing  functions  are  1/ 

It  contained  in  the  routine;  XI 

IX                              Codputation  XI 

It  Xi 

it  John  c.  Eordeaux  Xi 

it  Naval  Postgraduate  School  Xi 

it  Master's  Thesis  XI 

it  ti 

/tut  tutu  tut  utmmmtmtmtmmttmtmmttmtmmtmt/ 


it i/ 

IX      includes  Xi 

1% xi 

/ t#include  <stdio.h)  XI 

♦include  "portab.h"  IX  portable  coding  conv  Xi 

♦include  'aachine.lr  It  sachine  depndnt  conv  XI 

♦include  'obdefs.h"  IX  object  definitions  XI 

♦include  "treeaddr.h"  IX  tree  address  nacres  XI 

♦include  "geisbind.h'  IX  ge&  binding  structs  XI 

♦include  "sure.h"  IX  SURE  apl  resource  XI 

♦include  "lath.h"  it  lattice  c  ti 

♦include  "Units. h"  IX  lattice  c  XI 

♦include  "optstrct.h" 

♦define  TE_T)iTLEN(x)  ixt24i 

i% : 1; 

IX        preprocessor  utilities    XI 
IX xi 

♦define   HAiLOCtx)    ((x  t!  allocisizeof (x»)l 

♦define   CALLGCin,  x)  l(x  t)   calloc(n,  sizeof(x))) 


ft- 

xi 

It 

OPT /SURE  defi 

nes     X! 

It 

♦define 

END  UPDATE 

ft 

♦define 

BEG  UPDATE 

i 

♦define 

MAXSTATE 

100 

♦define 

HAXTRANS 

200 

♦define 

ETCALC 

0 

♦define 

START 

1 

♦define 

GEOMETRIC 

FALSE 

♦define 

prn: 

EPSHSS10.FNT 

♦define 

(unreal 

0.29e-38 

♦define 

taxreai 

1.70e3B 

♦define 

idleng 

8 

♦define 

NULLA 

0 

♦define 

ALLOCSIZE 

1000 

It  laxima  nuiber  of  states    XI 

It  ■axiiufi  nuiber  of  transition  tl 

It  Whites  algebraic  formla,E(t)l/ 

IX  indicates  the  start  state   XI 

It  deselect  geometric        Xi 


It   pointer  value  for  error    tl 
it   size  of  available  space    ti 
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static  char  allocfauf [ALLOCSIZE]; 
static  char  tallocp  =  al locbu^f ; 


IX   storage  for  alloc 
IX   next  free  position 


XI 
XI 


/t xi 

IX        External  Functions      XI 
I (/ 

EXTERN    LONG   dos.alloci!; 
EKTERN    UWQRD   DOS.ERR; 

ft xi 

IX         Global  Data  Structures  XI 
IX 1/ 


BOOLEAN 

predstl 

HAXSTATE3; 

extern 

struct 

state_loc  state_ 

arrayCKAXSTATEl; 

DEATHREC 

tfdeatr 

; 

TRANREC 

tsuccstHAXSTATEl; 

INCON 

tinconl 

istj 

WORD 

TIME  = 

10; 

It   mission  tine 

1/ 

HQRC 

POINTS 

*-J? 

IX   nuiber  of  pts  plotted/calc 

XI 

LONG 

PRUNE  = 

0.0; 

IX   deactivate  the  pruning 

XI 

MORI 

NARNDIE 

=  i; 

/I  set  UB  ace.  to  tno  digits 

XI 

mi 

TRUNC 

~   w  » 

IX   set  loop  traversal s  at  3 

XI 

WORD 

LBFACT 

=  20; 

/*  sets  the  Ki  and  Kj  =  20 

X! 

WORD 

LIST  = 

2; 

IX   sets  the  ouput  level 

X! 

IX 

Xi 

IX        e:< 

ternal  variables      Xi 

/* 

*  / 

/  ♦ 

*/ 

extern 

WORD 

Ql_Hchar ; 

It   character  width 

XI 

extern 

WORD 

gl_hchar; 

IX   character  height 

XI 

extern 

WORD 

gl_wbox; 

IX   box  (cell)  width 

XI 

extern 

WORD 

gi_hbox; 

IX   box  (cell!  height 

XI 

extern 

WORD 

g 1  rfflsg  L 83 ; 

IX   message  buffer 

XI 

extern 

WORD 

gljispace; 

IX   Ht.  of  space  between  lines 

XI 

extern 

WORD 

SURE_pen; 

extern 

WORD 

SLiRE_shade; 

extern 

WORD 

PEnJrASE; 

extern 

WORD 

title; 

extern 

WORD 

ydata; 

IX   Current  data  line 

XI 

extern 

WORD 

radius; 

IX   Cureent  radius  of  state 

Xi 

extern 

WORD 

gea_handlej 

IX   GEM  vdi  handle 

XI 

extern 

WORD 

vdijiandle; 

IX   SURE  vdi  handle 

XI 

extern 

WORD 

work_out[57]j 

IX   open  virt  workstation  values*/ 

extern 

WORD 

ev_which; 

IX   event  aulti  return  state(s) 

XI 

extern 

WORD 

vdi_handle; 

extern 

WORD 

curr_hndl; 

extern 

WORD 

pict_hndl; 

IX   SURE  window  handle 

XI 

extern 

WORD 

datahndl ; 

IX   SURE  data  window  handle 

XI 

132 


extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 


WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
LONG 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 


pen_shade  ; 

SURE_height  ; 

char_fine; 

char_BS(i]un; 

char_broadj 

sonuffiber  ; 

■ofaddr  ; 

file_handle; 

key_xbeg; 

keyybeg; 

key_xcurr; 

key_ycurr; 

runno; 

pathcount; 

cnttrunc; 

cntprune; 

bigst; 

i; 

nun  states: 


IX  saved  pen  shade  XI 

IX  SURE  current  char  height  1/ 

IX  character  height  for  tine  XI 

IX  character  height  tor  nediua  XI 

IX  character  height  for  broad  XI 

IX  mouse  fors  nuiber  XI 

IX  House  form  address  XI 

IX  Hie  handle  ->  pict  ld/sv  XI 

IX  x  posit  -for  line  beginning  XI 

IX  y  posit  for  line  beginning  XI 

IX  current  x  position  XI 

IX  current  y  position  XI 

IX  run  number  XI 

It  number  of  paths  XI 

IX  nuiber  of  loops  truncated  XI 

IX  nusber  of  paths  pruned  XI 

IX  largest  state  entered  so  fart/ 


IX   nuiber  of  states  entered 


i 


extern  UWORD  ir:_out  ; 

Extern  UWORD  mousex,  eousey; 

extern  UWORD  bstate,  bclicks; 

extern  UWORD  kstate,  kreturn; 


IX  Bouse  in/out  of  window  flag  XI 

IX  mouse  x,y  position  XI 

IX  button  state,  fc  #  of  clicks  XI 

IX  key  state  and  keyboard  char  XI 


extern 
extern 

extern 


LONG  ad_rasg; 
LONG  gl_*enu; 
LONG   drawaddr: 


IX   LONG  pointer  to  sessaoe  bfr  XI 
IX   menu  tree  address        XI 


extern 

extern 
extern 
extern 
extern 
extern 


GRECT 
GRECT 
GRECT 
GRECT 
GRECT 
GRECT 


curr_work; 
pict_Nork; 
pict_rect; 
datajiork; 
curr_undo; 
pict_undc; 


IX  work  area  of  current  window  XI 

IX  work  area  cf  picture  window  XI 

IX  work  area  of  picture  window  XI 

IX  wort  area  of  data  window   XI 


extern    double  speclow; 


extern 

double 

spechighj 

extern 

double 

specval; 

extern 

double 

ubfaii: 

extern 

double 

1  b-f  ai  1 1 

extern 

double 

e_of_t; 

extern 

double 

e_of_t_del; 

extern 

double 

pi  alpha: 

extern 

double 

lowbf ,lowbg; 

extern 

BOOLEAN 

key_input; 

extern 

BOOLEAN 

erun; 

extern 

BOOLEAN 

nonlinear; 

extern 

BOOLEAN 

et_bad; 

IX  variable  range  value  XI 

IX  variable  range  value  XI 

IX  special  variable  value  XI 

IX  prob  of  systeii  failure  XI 

IX  lower  bound  of  failure  XI 

IX  E(T)  coaptation  result  XI 

IX  E(T-t)  computation  result  XI 

IX  product  of  the  alphas  XI 

IX  intermediate  results  XI 

IX  key  inputting  state  XI 

IX  runtime  errors  flag  XI 

IX  nonlinear  flag  XI 

IX  E(T1  coap.  is  inaccurate  XI 
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extern  BOOLEAN  rec_sio»(;  It  recovery  too  slow  tl 
extern  BOOLEAN  std_big;  It  Rec  Std.  too  big  1/ 
extern    BOOLEAN   rate_big;      It   Exp.  rate  too  fast       1/ 


ft- tl 

It            init_pointers()  M 

It : tl 

initj)Dinters()  It  initiate  succst  array  tl 

f 

V 

WORD        l ; 

BYTE       nui_str[20]j 
f death  =  OL; 
ltoa(  (LONG)  f  death,  nuijstr); 

dosjnntf  (nuis_stri; 

for<  i  =  0;  i  <=  HfiXSTATE;  i++i 
succstEi]  =  NuLLPTR; 
}  It   init_pointers()  1/ 


it tl 

l\              alloc!!  1/ 

/I j/ 

BYTE 

tailoc(n)  ft   return  pointer  to  n  characters-  tl 

HGRD   n; 

{ 

it!  ailocp  +  n  <=  allocbuf  +  ALL0CSI2E  )    ft   fits  tl 

{ 

ailocp  +=  n; 

return (ailocp  -  n);        It   old  p  tl 

} 

else  It   not  enough  roo&  1/ 

return 'NULLAi : 
}  It   alloc!!  tl 


It- -!/ 

/*     freeO  tl 

free ip)  It   tree  storage  pointed  to  by  pi/ 

BYTE   Ip; 

{ 

itip  >=  allocbuf  &tc  p  <  allocbuf  +  ALLOCSIZE  ) 
ailocp  =  p; 
}  It   freeO  tl 
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/I 

—  t 

It            power!) 

t 

i 

KORD 

power (x,n! 

WORD   x,  n; 

r 

WORD   1,  p; 

p  =  i; 

tor  i  1=1 ;  i  <=  n; 

++i  ) 

p  =  p  t   x; 

return(p) ; 

}  IX   power (!  XI 

It  Raise  x  to  n-th  power;  n>0     %l 


it 

It            printdsd 
It 

VOID 

printds(n, string) 

WORD    nj 

BYTE    5tring[643; 

{ 

WORD  i,  ii; 
BYTE  te*psti643; 


■*/ 

1/ 

-1/ 


i  =  0; 
ii  =  0; 

Hi  n  <  0  ) 

i 

n  =  -n: 


string[ii++3  = 


do 
{ 

te«pstCi++3  =  n  1.  10  +  :0?; 
}  while!   (n  /"=  10)   >  0  i; 


while! 


■l  >=  0  ) 


stringEii++]  =  tespBtCi  3 ; 
string[iil  =  '\0'j 
}  IX   printdsd  XI 
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IX 

it  fotaO 

/I 

VOID 

fatal  n,  5! 
BYTE    st643; 
double   n; 

{ 

WORD  i.ii,  sign; 

WORD  e,  pow; 

BYTE  string  C64] ; 

double  x,  teapx; 


1/ 

-»/ 


it   Convert  n  to  characters  in  si; 


1  =  U; 
i  -f  (  n  <  0 


It   record  sign 


SL1++1  =  '-'; 
n  =  -n; 


-1  sake  n  positive 


1/ 


pow  =  0; 

Mhi  1  e (  n  <  1 .  ) 

{ 

pon — ; 

n  =  ntlO; 

} 

while!  n  >  10. 0  ) 

/ 
i 

pow++; 

n  =  n/10; 
} 

■  =  lint!  n; 
printdsU, string) ; 
strcpyis+i, string!; 
i  =  strlenisi; 
sli++]  =  '.'; 


x  =  n-ni; 

while!   (x   !=  0.0  !  M  (i  <  6)   ) 

[ 

tenpx  =  x; 

te«px  t=  10; 

n  =  !jnt!  tespx; 

s[i++]  =  li  +  43; 

x  =  teiRpx  -  ii; 
} 
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if(  pon  !=  0  ) 

\ 

sfi++]  =  rE'; 

if !  pow  '.■-   0  i 
s[i++]  =  '+'; 

printdslpow, string) ; 

strcpy(5+i ,string)i 
} 

else  sEi]  =  '\0'j 
return; 
}  It   fetal)  XI 


IX-— XI 

It            findtran  XI 

/t ,/ 

BOOLEAN 

findt  ran  (-f  roots,  tos,  paean,  pstdev.pfract) 

statetypes  frons,  tos; 

VALREC     lp»ean,  tpstdev,  ipfract; 

'i 

TRANREC   to; 

BOOLEAN   found; 
do5_print-f ("Findtran  has  been  entered"): 

\ 

p  =  succstLfroasI; 

found  =  FALSE; 

while  !  p   1=  NULLPTR) 

iff  p->st  ==  tos)  IX  Transition  -found  XI 

r 
\ 

found  =  TRUE; 

paean- >coef    =  p->«ean.coef ; 
p»ean->base    =  p->iean.base: 
pstdev->coef  =  p->stdev.coef; 
pstdev-)ba5e  =  p->stdev.base; 
pfract-koef  =  p->fract.coef; 
pfract->base  =  p->fract.base; 

p  =  p->ne>:t; 

} 

} 
dos_printf ("Findtran  has  been  exited0); 

return (found) ; 
}  It  -findtran  XI 
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n $/ 

IX           itranschk  XI 

„ »/ 

WORD 

itranschk (troi5,tDS,nsloH,nfast! 

WORD   fro§s,tos; 

WORD   nsiC'N,nfast; 

\ 

TRANREC   *p; 

WORD     found; 
dDE_print'f  ("Itranschk  has  been  entered''  1 ; 
\ 

p  =  succstifroiss]; 
■found  =  0; 
nslDN  =  0; 
n-f  ast  =  0; 
while  ip  '=  NULLPTR) 

if   !  p->st  =  tcs)  IX  Transition  found  XI 

found  =  fcuno  +  1; 
if  (  p->st  >=  0) 

{ 

if  (  p->stdev.base  ==  -1.0) 
nslow  =  nsiow  +  1; 

else 

nfast  =  nfast  +  i; 
j 

p  =  p->next; 

i 
dos_printf < ,! itranschk  has  been  exited"); 

return (found) ; 
5  IX   itranschk  XI 


IX— — - — - XI 

IX            enter  0  XI 

IX 1/ 

VOID 

enter (f r D5S,to5, paean, pstdevjpfr act) 

statetypes  fro«5,tos; 

VALREC     tpiean,  Ipstdev,  Ipfract; 

r 
\ 

TRANREC  tp; 

VALREC  vl,  v2,  v3; 

BD0LEAN  fnd; 

BYTE  nu«_str[643; 
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dos  printtf "Enter  has  been  entered"); 
5Bt_clip(TRUE,&data_work) ; 

vst  height  (dsta_hndl  ,char_'f  ine, ^gl _wchar ,igl _hchar , 
Scgl  _wchar  ,gl  _hchar } ; 

{ 

fnd  =  findtran  (<frois,tos,ttvi,tiv2lliv3); 
Hi   fnd  U  (tos  ==  -1)  ! 

v_gtest!data_hnd],data_»ork.g_x+5,data_t»ork.g_y+ydatat8, 
"  '«*»  HOLDING  TIME  ALREADY  ENTERED"); 
ydata++; 
") 

else 
{ 

predst [tos]  =  TRUE; 
it  t  irons  >  bigst  ) 
bigst  =  *roiss; 
if(  tos  >  bigst  1 
bigst  =  tos; 
if(  (  irons   >  MAXSTA7E)  !i  (tos  )  HAXSTATE) 

!i  (fross  <  0)  ! !  (tos  <  -1!  ) 
£ 

v_gtext(data_hndl,data_wDrk.g_x+5,data_MQrk.g_y+ydatatB, 
"tin  STATE  OUT  OF  RANGE'S; 
ydata++j 
} 

else 
\ 

p  =  HALLOC(TRANREC); 
p->st      =  tos; 
p->next  =  MULLPTR; 
p->»ean.base    =  paean->base; 
p->»ean.coet    =  psean-)coet; 
p->stdev.Dase  =  pstdev->base; 
p->stdev.coef  =  pstdev->coel; 
p->fract.base  =  pfract->base; 
p-Mract.coef  =  p-f  ract->coe+ ; 
p->next  =  succsUfrotslj 
succstt-frotfis]  =  p; 
dos_print-f ("The  pointer  for  p  follows"); 
ltoa((LQNG)p,nm»_str); 
d05_printf (nu«_str) j 
fota(pffleari->base,Mii_5tr) ; 
do5_printf (nu*_str) ; 
fota(pstdev->base,nuiri_str) ; 
dosprintt  !nut_str) ; 
fota(p+ract->base,nuffi_str!; 
dQ5_print-f  (nuffl_stri ; 
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} 

dos_printf ("Enter  has  been  exited"); 
set_cIip(FALSE,idata_nork); 
v5t_height(data_hndl,char_iediui,!(Ql_Kchar,?t9l_hctiar, 

igl_nchar,ql_hchar); 
}  /»  enter!)  t! 


it 1! 

IX              cap!)  1/ 

It 1! 

doubie 
cspipv! 
VALREC   *pv; 

r 
\ 

do5_printt ("cap  has  been  entered  and  exited*); 

return!  pv->base  +  !pv->coef itspecva!  ); 
3  /»  cip()  tl 


/j %i 

!t             clear  1/ 

It --»/ 

VOID 
clearO 

TRANREC   It,  tl; 

WORD     l ; 
{ 

for  (  i  =  1;  i  <=  bigst;  i+*  ) 

{ 

iff  succstm  !  =  NULLPTR  ) 

f 
\ 

t  =  succstCil; 

while!  t  !=  NULLPTR  ! 

{ 

1  =  t; 

t  =  t->next; 

•free  (i ) ; 

} 

succstii]  =  NULLPTR; 
} 

predstii]  =  FAlSE; 

1 
/ 

bigst  =  -1; 

i 

)  it  clear  tl 
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It 

It            approx_et(! 
IX 

double 

apprax_et(ep,«t) 
EREC    tep; 
double   at; 


-*/ 

1/ 

-XI 


double   e_of_t; 
HORD    kj 
BYTE   nufi_5tr[M3; 
dQ5_pr  int-f  (Eapprox_et  has  been  entered"!; 

e  Df_t  =  1; 

k  --  0; 

e_ot'_t_del  =  !; 

whilefep  !=  NULLPTR) 

{ 
dos_print-f ("The  value  for  k  follows"}; 
itoa(k,nu»_str); 
dos_print+(riui9_5tri; 

k+*; 
ltca((LQNG)ep,nui_5tr); 
dos_printf (nu«_str); 

dosjjrint-f  ("The  value  tor  ep- >1  ambda  •follows'); 
fata (ep-/la«bda,nus_str! ; 
dos_printt  (nui*_str) ; 

dos_printf ("The  value  for  eo-f _t  folloHS*}; 
fDta(e_ot'_t,nm_5tr); 
do5_printf (nu«_str)j 
dos_print-f  ("The  value  tor  «t  follows8;; 
fota(ait,nuB_5trl; 
dosjrintt  !nus_str); 

e_of_t  =  ep->laabda  t  e_ot"_t  i  st/k; 
ep  =  ep->next; 
dos_printf ("The  pointer  for  ep, EREC, in  the  while  loop  follows"); 
ltoa((LONG)ep,nus_str); 
dos_printf  (nm_str5; 

fota(e_ot"_t,nui_str)| 
dos_printf (nu«_str) ; 

dos_pnnt-f !"approx_et  has  been  exited"); 

return (e_of_tl ; 
}  It  approx_et  XI 


141 


I% 1/ 

1%            returncntO         ti 
,X 1/ 

WORD 
returncnt<c5jh) 

statetypes  cs; 
HIST      *h; 

WORD   c; 
dos  print-f ("returnct  has  been  entered'); 
"c  =  0; 

while)  h  !=  NULLPTR  ! 
{ 

if  (  h->st  ==  cs  ) 

C++; 

h  =  h->next; 
} 

return (  c  ); 
} 

dos_print-f  ("returnct  has  been  exited"); 
}  IX   returncnt  1/ 


IX j; 

It             hcopy  ti 

IX ti 

VOID 

hcopy (hp,np) 

HIST   thp,  tnp; 

HIST   lop,  lip; 
BYTE   nu«_str[10]; 
dos_pri nt-f ("hcopy  has  been  entered"); 

np  =  NULLPTR; 

while<  hp  !=  NULLPTR  I 

{ 

op  =  lp; 

ip  =  HALLOC(HIST); 
dos_printt i!lThe  pointer  for  Lp, HIST  follows"); 
Itoa ( (LONG) lp,nua_str ) ; 
dosprint-f  (nun_str)j 

lp->st  =  hp->st; 

lp->next  =  NULLPTR; 

i<(  np  ==  NULLPTR) 
np  =  lp; 

else 

op->next  =  ip; 

hp  =  hp->next; 
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dos  print-f  ( "hcopy  has  been  exited"); 
}  IX   hcopy  tl 


It tl 

It            ecopyf)           tl 

/#_  *  / 

VOID 

ecopy(ep,np) 

EREC   iep,  *np; 

EREC   top,  lip; 

BYTE   nui_strtl03; 

dos  print-f Cecopy  has  been  entered") 5 

np  =  NULLPTR; 

while(  ep  1=  NULLPTR  i 

r 

op  =  lp; 

lp  =  HALLOC(EREC); 

dos_printf ("The  pointer  for  I p , EREC  fo! 

.  io*s") ; 

ltoa((LQNG)ip,nui_str); 

dos_print-f  !nus_str) ; 

lp->next  =  NULLPTR; 

1  p-  >i  ambda  =  ep-Hatbda; 

lp->gaana  -  ep->gaa«a; 

iti  np  ==  NULLPTR  ) 

np  =  lp; 

else 

op->next  =  lp; 

ep  =  ep->ne^t; 

} 

dos_prmt-f  Cecopy  has  been  en  ted''); 

}  It   ecopyO  tl 

It- - 

1/ 

It            haddi) 

1/ 

/+ 

+  / 

/ » 

ii 

VOID 

haddic5,h) 

statetypes 

«i 

1 

HIST    th: 

| 

{ 

HIST 

lip; 

BYTE 

num_! 

itrC 

101; 

dosprintf  ( 

'hadd 

has 

been 

en! 

:ered"!; 
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ip  =  h; 

h  =  HALLOC(HIST); 
do5_printf ("The  pointer  lor  h.EREC  follows'); 
ltoai (LONS)h,nus_str}; 
dos_print-f  (nu«_str); 

h->st  =  cs; 

h->next  =  Ip; 
do5_print-f Chadd  has  been  exited"); 
}  /I  haddi)  XI 


1% 

■-1/ 

IX            addtoelistO 

xi 

VOID 

addtoelist! 

cs,cp,ep,nep) 

statetypes 

"i 

TRANREC 

Icp; 

EREC 

tep,  tnep; 

double 

gaa&a; 

TRANREC 

tp; 

double 

cipO; 

BYTE 

nu«_str[iO]j 

dos_pr intt ! 

"addtoelist  has  been 

entered"); 

gai3«a  =  0.0; 

p  =  succsticsj; 

while(  p  l=  NULLPTR  5  It   All  are  exponential       XI 

{ 

if(  p  !=  cp  ) 

qasic  =  gaasia  +  cupi&ip-Hiean! ) ; 
ifi  cip(iip->nean))   )  (TIRE/ 10. 01   ) 

rate.big  =  TRUE; 
p  =  p->next; 

nep  =  HALLOCiERECS; 
dosprint-f  ("The  pointer  for  nep, EREC  follows0); 
ltoa((LONG)nep,nui_str)j 
dos_printf (nuffi_str) ; 

nep->laiibda  =  :ip{&(cp->iean)}; 

nep->gaiaa    =  gassa; 

nep->next      =  ep; 
dos_print-f { "addtoel ist  has  been  exited*); 
}  It  addtoelist  Xi 
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it — XI 

It            death  0  XI 

n »/ 

BOOLEAN 
death  ip) 

TRANREC  *p; 

r 

i 

dos_printt" ("death  has  been  entered*); 
if(  p  ==  NULLPTR  ) 

r 
\ 

d05_printMDr&turn  TRUE"); 
return (TRUE); 
} 

else 

s 

dos_print-f  ("return  p->st  =  -1B); 

return (!  p->st  ==  -1  )  %k   (  p->next  ==  NULLPTR)  ); 

} 
dos_printf ("death  has  been  exited*); 
}  IX   death!)  XI 


/I xi 

IX           addtodeathO        */ 
ft */ 

VOID 

addtodeath (ds,  ep,  hp,  lb,  ub,  delta! 

statetypes  ds; 

EREC    tep; 

HIST    thp; 

double   lb,  ufa,  delta; 

f 

DEATHREC   id; 
BOOLEAN   round; 
WORD     Ic; 

BYTE     lbstr[32],ubstr[32],riU(B_str[15]; 
dos_printf !  "addtodeath  has  been  entered"); 


if  I  LIST  >=  5  ) 
{ 

v_gtext<data_hndl  ,dataj»ork.g_x+5,data_Hork.g_¥+ydatat3, 
"lit*  ADDTODEATH  ENTERED"); 
IX  ca!c_et (ep, delta);  1/ 

ub  =  ubte_o(_t; 
lb  =  Ib!e_of_t_del; 
ydata++; 
} 
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iff.  LIST  >=  2  ) 

r 
\ 

itoa(d-)5t,nui_str); 

v_qtext !data_hndl , data_wor k.y_x+5,data_work. g_y+ydata*9. 

nu«_stri ; 
fota(lbflbstr)s 
v_gtext (data_hndl , data_wort . q_x+83, data_wor k . g_y+ydatatB, 

Ibstr); 
fota(ub,ub5tr)j 
v_gtext (data_hndl ,data_wDrk.g_x+I6i ,dsta_Hor k.g_y+ydatatB, 

ubstr); 
ydata++; 

iff  et_bad  ) 

{ 

vgtext  (data_hndl  ,  data_work.g_>!+j,data_worLg_Y+ydata*8, 
"tttl  E(T)  INACCURATE") ; 

ydata+t; 
} 

etbad  =  FALSE; 
} 

d  =  {death; 
■found  =  FALSE; 
whilef  d  !=  NULLPTR  ) 
{ 

ifi  d->Et  ==  ds  ) 
{ 

found  =  TRUE; 

d-Hprob  =  d->lprob  +  ib; 

d->uprob  =  d->uprob  +  ub; 

d  =  d->next; 

] 

ill   'found  i 

r 

I 

d  =  KALLOC(DEATHREC); 
dos_pnntf  ("The  pointer  for  d, DEATHREC  follows';; 
ltoa((LONB)d,nui_str) ; 
du5_printf (num_str) ; 

d->next    =  NULLPTR; 
d->st        =  os ; 
d->lprob  =  lb; 
d->uprob  =  ub; 
if(  f death  ==  NULLPTR  ) 

fdeath  =  d; 
el5e 
{ 

d->next  =  fdeath; 
fdeath  =  d; 

; 

} 
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{ 

v_gtext(data_hndl,data_work.g_x+5,ddta_*ork.i3_y+ydsta*B, 
■Ittl  ADBTO  DEATH  ENTERED"!; 
ydata++; 
lc  =  1; 

urn  lei  hp  !=  NULLPTR  ) 
{ 

v_gtext (data_hndl , rfata_worfc . 9_x+5, data_«Drk. g_y+ydatat8, 

" — '-:■   WRITE  OUT  THE  STATE"); 
ydata++; 

it(  ilc  I   10)  ==  0  ) 
{ 
v_gtext  (data_hndl  ,data_work.Q_x+5,data_t*crk.Q_y^ydatai3, 
•ttlt  PRINT  OUT  THE  ERROR9); 
ydata++; 

s 

hp  =  hp->next; 
Ic++; 

} 

5ave_data_**ork  i); 
dos_pnntt ("addtodeath  has  been  exited"!; 
}  IX   addtodeath  XI 


/* XI 

it            allexpoi!  M 

1% 1/ 

BOOLEAN 

allexpc(lp,uc,5ig2c) 
TRANREC  tip; 
double   uc,  sig2c; 
{ 

BOOLEAN  tallexpo; 
doable   cspO; 


do5_print^inallexpo  has  been  entered"!; 

tallexpo  =  TRUE; 

uc  =  -1; 

5iG.2c  =  -1; 

while!  lp  !=  NULLPTR  ! 


f 


i-f  C  1  p-  >st  >=  0 


iH  cip(ti(lp->5tdev))  >=  0  ) 
tallexpo  =  FALSE; 
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else 

r 
X 

uc  =  cnp(fc(lp->iean) ) ; 

siq2c  =  cap<8t(lp->stdev) } ; 

sjq2c  =  si  y2c  X  sig2c; 
5 

Ip  =  lp->nextj 

} 
do&_print-f (ral lexpo  has  been  euted'1); 
return (tallexpo); 

}  IX   all  expo  XI 


IX 

,,■ 

IX            allexpoleeO 

XI 

/* 

t  / 

BOOLEAN 

ai lespol Ee (p) 

TRANREC   Ip: 

BOOLEAN   tallexpolee; 

tal lexpolee  =  TRUE; 
while (  p  !  =  HULLPTR  ) 

{ 

if(  p->st  >=  0  ) 

it  i  cap  (  8c(p->f  ract  i )  >  0  5 

tallexpolee  =  FALSE; 

i 

/ 

p  =  p->next; 
} 

returnltallexpolee); 
)  IX  al lexpolee ( )  XI 


H %t 

IX            traverse*')  XI 

IX X! 

VOID 

traverse (cs,hp,ep,  lb,  ub,  delta! 

statetypes   cs; 

HIST    Ihp; 

EREC    lep; 

double   lb,  ub,  delta; 

{ 

TRANREC   lip,  ip; 

EREC     tlep,  tnep; 

HIST     tnhp; 
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WORD  retc,returncnt(); 

double  alpha,  uc,  s i g 2 c ; 

double  an,  std,  frac,  tftom,  fl,  f2: 

double  del ta_at_cs,  ri,  s.i; 

double  oldlb,  oldub,  sunfract,  suaiexpos.  ptax; 

double  approx_et(!,CBpi); 

BYTE  t»ui_str[20],p»axstr[323; 

do5_printf ("Traverse  has  been  entered"); 
retc  -  returncnt (cs,hp! ; 
If  i  lIo I  /-  j  / 

v_gtext(data_hndl,data_»iork.g_x+5,data_wDrk.g_y+ydataf8, 

•—"TRAVERSE  —  CS,  LB,  UBU); 
yriata++; 
if!  retc>=  TRUNC  ) 
{ 

cnttrunc++; 
if(  LIST  )-  4  ) 
{ 

paa,-:  =  ubiappro>:_et(ep,TiHE); 
dos_printr ("ep  following  piax  in  traverse  follows"); 
ltoa( (LONG)ep,nui_str) ; 
dosj>rintf  (nu*_str) ; 

v_gtext(data_hndlfdata_nork.g_x+5,data_work.g_y+ydatat8, 

"Loop  At  State"); 
itoa(cs,nun_str); 
v_gtext(data_hndl,data_Hork.g_x+85,data_work.g_y+ydataJB, 

nua_str); 
fota(p«ax,piax5tr)j 
v_gtext(data_hndl,dataj»ork.g_x+95,data_*ork.g_y+ydatat8, 

pnaxstr) j 
ydata++; 
goto  lab°99; 

} 


pisax  =  ubtapprox_et<ep,TIHE); 
dos_printf  Cep  following  pnax  in  traverse  follows8); 
ltoai(LONG)ep,nus_str); 
dos_pnntf  (nua_str); 

lfi  paax  <=  PRUNE  ) 
{ 

cntprune++; 
if*  LIST  >=  4  ! 
{ 
v_gtext(data_hndl,data_wDrk.g_x+5,data_nork.g_y+ydatatB, 

"Path  Prune  at"); 
itoa(c5,nu(B_str); 

v_gte>;t(data_hndl,data_*ork.g_x+85,data_work.g_y+ydatatG, 
nu«_str) ; 
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ydata++; 

} 

goto  lab999; 


} 


nhp  =  HALLOC(HIST); 
das_printt ( "The  pointer  for  nhp, HI5T  follows"); 
ltoa(iLONG)nhp,nun_str>; 
do5_printt (nua_str) ; 

nhp->st  =  cs; 

nhp->next  =  hp; 

p  =  succsUcsl; 
dos_print-f ("The  pointer  for  p, succstC ]  follows"!; 
ltca ( (LONG)p,nu»_str ) ; 
dcs_printt  (nina_5tr ) ; 

if  (  death (p)  ) 

r 
V 

addt odeath!cs,ep, nhp, ib,ub, delta ) ; 

pathcount++; 

i, 

else  iff  alle*!po(p,ac,5iQ2c!'  ) 
{ 

while!  p  i=  NULLPTR  i 
{ 

if(  p->st  >=  0  ) 

; 

dos_print-f (Bep  prior  to  addtoeiist  in  traverse  follows";; 

itoa{(LONS)ep,nuB_str); 

dos_printf inu«_str! ; 

dos_printf ("nep  prior  to  addtoeiist  in  traverse  follows"); 

ltoa!(LONS)nep,nufi_str); 

dos_print-f  (nu»_str) ; 

addtoelistfcs,p,ep,nep); 
dos_printf ("nep  after  call  to  addtoeiist  in  traverse  follows"!; 
ltoaf (LONG) nep, num_5tr); 
do5_printf (nut_str); 

do5_printf ("nhp  prior  to  call  to  traverse  in  traverse  follows"); 
itoa!(LGN6)nhp,nui_str); 
dos_printf (nuffl_str! ; 

tr aver se(p->st, nhp, nep, lb.ub, delta); 
dos_printf ("The  pointer  for  nep,EREC,  to  be  freed  follows5): 
It  oaf (LONG) nep, nua_str); 
dos_printf (nu«_str) ; 

freeinep! ; 
} 
p  =  p->next; 


} 
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ei5e 

{  it  --  At  least  one  transition  from  P  not  exponential  ~  XI 

oltiib  =  lb; 

ol dub  =  ub; 

if(  siy2:  <  0  )  IX  Holding  Info  Not  Found  By  ftllexpo         \i 

(  IX  ftpproxnate  Frois  Transition  Info  XI 

uc  =  0; 

siq2c  =  0; 

lp  =  succstlcsj; 

susfract  =  0.0; 

sumexpcs  =  0.0; 

while  I  lp  !=  NULLPTR  ) 

i 

if(  lp->st  >=  0  !  IX  Not  holding  Tiae  Into  Xi 

r 
\ 

en     =  csp(Mlp-)seanl); 

std  =  cffip(&ilp->stdev) ); 

it   (  std  >=  0  )  IX  Fast  Recovery  Transition        XI 

{ 

frac  =  cap(&(lp->fracti ); 

uc  =  uc  t  fraclsn; 

suatract  =  suifract  +  frac; 

tnoa  -  stdlstd  +  sntun; 

sig2c  =  sig2c  +  frac*t«D*; 
} 

else  ft   Slow  Transition  X: 

susexpos  =  sutespos  +  in; 

i 

lp  =  lp->nextj 

i 

/ 

if(  absil.O-susfract)  >  1.0e-10  !      ft   Hachine  Dependent  X: 
( 

erun  =  TRUE; 

v_gtextidata_hndl,data_nork.g_x+5,data_*iork.g_y+ydatatB, 
Ktl*t  ERROR  tilt  SUM  of  EXITING"); 

ydata++; 

sio2c  =  sig2c  -  uciuc; 


lfi  LIST  >=  5  i 

r 
i 

v_gtext(data_hridl,data_nork.g_x+5,datajiork.g_y+ydatat8, 

"Write  UC,  Sig2c,  and  Suaexpos"); 
ydata++; 


delta_at_cs  =  delta; 
while!  p   !=  NULLPTR  ) 

r 
I 
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lb  =  oidlb; 
ub  =  oidub; 
lit  p->5t  >=  0  ) 
{ 

in  =  c«p(&  (p->aean) ); 

std  =  c«p(&ip->stdev) ) ; 

tffioa  =  an  tun  *■   stdlstd; 

it'i  std  >=  0  )        /*  —  Fast  On  Path  —      XI 

{ 

frac  =  cupiStJp-Mract)); 
ub  =  ubifrac; 
if(  LBFACT  >  0  ! 

n  =  LBFACTt(im+std); 
else 

ri  =  sqrtdun); 
if  (  ri  (=  iinreal  ) 

r 
\ 

fl  =  0.0; 
v_gtext  (dat a_hndl.dat ajiork.gj +5, data_wort ,g_y+ydat ate, 
'Instantaneous  Recovery  Not  Aiiov»edEi; 

ydata++i 

i 
i 

else 

fl  =  (  l.O-suBBxpostmn  -  tica/Critri)   ); 

iff  f!  <=  0  ) 
{ 

i+(  LIST  >=  5  ! 
{ 
v_gtext(data_hndl,data_niork.g_x*5,data_i»ork.g  y+ydatat8, 

"LIST  >=  5  in  Traverse,  SO  on  AND  QNK7; 

ydata++; 
\ 

fl  =  0.0; 

iff  suaexpos  >  0.1  ) 

rate_big  =  TRUE; 
else  it !  (team  /  (rilri))  >  1  ) 

std_big  =  TRUE; 
else 

rec_slow  =  TRUE; 

i 
/ 

lb  =  Ibtfractfi; 

if<  LIST  >=  5  ) 
\. 
v_gte:;t  (  dat  a_hndl.dat  awort .  g_x +5,  dat  ajiork.gy+ydatalS, 
"Ri  and  Delta"); 
ydata++; 
} 

delta  =  delta  at  cs  +  ri; 
} 
else 
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{  IX   Slow  on  path  transition    Xi 

alpha  =  cffip(Sc (p->»ean)  i; 
ub  =  ubtalphatuc ; 
if(  LBFACT  >  0  ) 

sj  =  LBFACTt(uc+sqrt<5ig,2c)); 
else 

s]  =  sqrtiuc); 
tija  =  uc*uc  +  5192c; 
if (  sj  <=  uinreal  ) 
{ 

12  =  0.0; 
v_gtext !data_hndl,data_*Drfc.g_x+5,data_HDrk.g_y+ydata*8, 
"Instantaneous  Recovery  Not  Allowed8); 

ydata++; 

-1 

else 

+2  =  uc  -  tsoiii  5UfiBxpos/2.0  +  1.0/sj  ); 

m  f2  <=  0  i 

{ 

f2  =  0.0; 

if (  susexpos  >  0. 1  ) 

rate_biy  =  TRUE; 
else  if !  uc  >  0.1  ! 

rec_slow  =  TRUE; 
else 

std.big  =  TRUE; 
if<  LIST  )=  5  i 

v_gtext(data_hndl,data_WDrk.g_x+5,data_uQrk.g_y+ydatat8, 
'XXXt   F2  Negative  tui'l; 
ydata++; 

itoa(cs,nuis_str); 
vgtext  idata_hridl,data_nork.g_x+85,data_iiGrk.g_y+ydataiB, 
nuB_str); 
ydata++; 

lp  =  succstlcsl; 
Hhilei  lp  !=  NULLPTR  ) 
{ 

if(  lp->st  >=  0  )    It   Not  Holdin  Time  Xi 
{ 

■n  =  cip(i(lp->Bean)); 
std  =  cip(4ilp->stdev)i; 
v_gtext(data_hndl,data_work.g_x+5,data_i«Drk,9_y+ydatatB, 
"tttt   To  State'jHt8); 

itoa(lp->5t,nui_str) j 
v_gtext(data_hndl,data_work.g_x+105,data_work.g_y+ydatat8, 
nu»_str); 
ydata++; 
} 
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lp  =  ip->ne?;t; 


It  if  hstleve!  =  5 


M 


lb  =  lbtalphaN2; 

Hi  LIST  >=  5  ! 
{ 

y_gtext  (data_hndl,data_worLg_x+5,data_worLg_y+ydata*6, 
"MM  SJ, DELTA  MM")j 
ydata++; 

delta  =  del ta_at_cs  +  sj; 
} 
Hi  delta  >=  TIME  ! 

v_gtext(data_hndl,data_work.g_x+5,data_tfork.g_y+ydatatB, 
"MM  DELTA  >  TIME  MM"); 
ydata++; 
} 

traverse (p->5t,nhp,ep,lb,ub, delta); 
} 
p  =  p->next; 
}  It   wniie  XI 
}  ft   if  XI 
do5_printt("The  pointer  for  nhp, HIST,  to  be  freed  follows"); 
itoa((LONG)nhp,nue_str)j 
dosprint-f  (nuastr); 
free(nhp); 
!aD?99:  ; 
save_data_Kork(); 
dosjsrintf ("Traverse  has  been  exited8!; 
}  IX   traverse!)  XI 


IX 

IX 

IX 

VOID 

hdrlO 
f 


hdrlO 


■XI 

X! 

■XI 


INCDN   Jincp; 
HGRD   ic,icnt; 


lfi  LIST  >  0  ) 
{ 
ft  if!  leetlag  ==  LEE  ) 

{ 


v_gtext(data_hndI,data_wD!rk.g_x+5,data_wor|::.g_ytydata*8l 
H— -  LEE  STATISTICAL  ANALYSIS  KODE  — -B); 
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ydata++; 

}    XI  IX   Lee  Analysis  Hode  To  Be  Added  Later  Xi 

incp  =  inconlist; 

icnt  =  0; 

Hhilel  incp  !=  NULLPTR  ! 

icnt++; 

tor (  i  =  1;  i  <=  ldleng;  i++  ! 
i -f <  incp->id[il  ==  '  '  ) 

gotc  lab7; 
else 
{ 
v_gtext(data_hnd! ,data_nork.g_x+5,data_wDrk.g_y+ydatatB, 
incp->id[i]); 
ydata-^+i 
} 
lab7:  y_ytext  (data_hr;dl  ,data_wor  r  .g_x+45,data_work.g_y+ytiatdtB, 

incp->v); 
ydata++; 
if!  (icnt  7,  3)  ==  0  1 

r 
\ 

v_gtext (data_hndl,datajtork.g_x+5,data_work.g_y+ydatdt8, 
8  NULL  in  HDR1'); 
ydata++; 
} 

incp  =  incp-)nei!t; 

/ 

ift  (icnt  ID   !=  0  ) 
i 

v_gtext(data_hndl ,dat?_nork.g_x+5,data_work.g_ytydata*B, 

'  H  ndrl  used  sore  code  required"); 
ydata++; 

} 
} 

}  1%  hdrHO  1/ 


IX — -- XI 

IX            hdr2(>  XI 

1% xi 

VOID 

hdr2(! 
{ 

v_gtext(data_hndl,data_«ork.g_x+5,data_nork.g_y+ydata*B, 

"DEATHSTATE      LOHERBOUND      UPPERBOUND'); 
ydata++; 

5dve_data_wcTk(); 
}  IX  hdr2(!  XI 
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IX 

a 
it — 

VOID 

hdr3l) 

{ 


hdr3() 


t 
I 


v_gt5,;t  •;datd_hr:dl,data_wor!;.Q_;^5,ddta_work.y_vJ-ydatatS, 

"HEADER  NUMBER  THREE  CALLED");' 
ydata++; 

save_data_work  Si ; 
J  ft   hdr3()  XI 


It- 
it 
It- 


net start  0 


n 
HORD 

getstarti! 


WORD   i,  pos; 

pes  =  -i; 

tori  i  =  0;  1  <=  biyst;  i++  ) 

r 

iff  !predst[i]  ) 
i 

if (  succstti]   !=  NULLP7R 

a  ( pos  >=  o  > 

pos  =  -2; 
goto  lab?9; 


else 


} 
iab?9:   return (pes! ; 
}  ft   getstartO  t! 


pos  =  i: 
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,J t! 

It            rio_cosputeO  XI 

zj 1 n 

v'C  i  D 
do_co*pute  i 

r 

DEATHREC  id; 

statetypes  ds,  startstate; 

BOOLEAN  pwarn; 

BYTE  nu(Ti_str  [5] ,  1  probstr  [32  j ,  uprobstr  [32  j  ; 

BYTE  ub{ailstr[323,lbfailstr[32]; 

double  lb,  ub,  del; 

BYTE  ttestptr; 

d05_print-f ("do_coipute  has  been  entered"); 

set_clip(7RUE,lidata_wark); 
V5t_height(data_hndl,char_'fine,igl_«char,ligl_hchar, 

fcgl_nchar,gl_hchar) ; 
ydata++; 
startstate  =  i; 
pathcount  =  0; 
rate_biy  =  FALSE; 
cr,ttrur,c  =  0; 
cntprune  =  0; 
lb  =  1.0; 
ub  =  1.0; 
del  =  0.0; 

switch  (LIST)   i 

case  II! ;  break;  It   NOTHING  i: 

case  (2):  hdr2();  break; 

case  (35:  hdr3();  break; 

}  IX   case  XI 
testptr  =  01; 

Itoa!  ;LQNG;testptr,r:uiii_5tr) ; 
d o s _ p r i r: t -f  (nua  str! ; 
Itoai (LONG) t death, nu»_5tri; 
dosprintt  (nue._=tr ) ; 
ltoa !  (L0NB)  NULLPTR,  rtuastr ) ; 
das_priRtf (Rue_stri ; 

It       while!  f death  !=  NULLPTR  i  XI        it   Cleanup  from  previous  runs  X) 
IX     { 

d  =  tdeath; 

f death  =  fdeath->next; 
dos_printf("The  pointer  for  d , DEATREC,  to  be  freed  follows"); 
Itoa! (LONG id,nu«_str ) ; 
dos_printf (nui_str); 

free!d! ; 
}  XI 
fdeath  =  NULLPTR; 
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traverse istartstate, NULL, NULL, lb, ub, del); 

d  =  tdeath; 
i  bf ai  i  =  0.0; 
ubtai !  =  0.0; 
if!  LIST  >=  3  ) 

hdr2<!; 
whaei  d  :=  NULLPTR  ! 

Hi  LIST  >=  2  ) 
{ 

itoa(d->5t,nui_str) j 

v_gtext(data_hndl,data_Hork.g_x+5,data_wDrk.g_y+ydatal8, 

nui_str); 
fota(id->lprob! , Iprobstr) ; 
v_gtext(data_hndl,data_work.g_x+B0,data_Ncrk.g_y+ydatat8, 

Iprobstr!; 
fota((d->uprob),uprobstr) ; 
v_gtext(data_hndl,data_tiork.g_x+15B,data_*ork.g_y+ydatat8, 

uprobstr); 
ydata+t; 

if!  et_bad  i 
{ 

v_gtext(data_hndl,data_nGrk.g_x+5fdata_iiork.g_y+ydatatB, 
"  ..  E(T)   INACCURATE  ,!J; 
ydata4-+; 

et_bad  =  FALSE; 
} 

Ibfail  =  Ibfail  +  d->lprob; 
ubfaii  =  ubfail  +  d->uprob; 
d  =  d->next; 

; 

pharr.  =  ubtail  <  PRUNElcntprunet (power ( 10, NARNDI6)); 

switch  (LIST)  { 
case  il): 

y_gtext  idata_hndl  ,data_tJork.g_x+5,datajiork.g_y+ydatatB, 

'  CASE  1  SELECTED  ');" 
ydata++;  break; 
case  (2): 
case  (3!: 

v_gtext(data_hndl,data_WDrk.g_x+5,data_work.g_y+ydatat8, 

"TOTAL"); 
fota(lbfail,lbfailstr)j 
v_gtext  (data_hp.dl,data_work.g_x+BO,data_Hork.g_y+ydatatB, 

Ibfailstr); 
fota(ub-f  ail  ,ubfailstr) ; 
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v  gtext(data_hndI,data_nork.g_x+i5B,dataj<Drk.g_y+ydatatB, 

ubfailstr); 
ydata++;  break; 
}  It   End  of  Case  XI 
iff  LIST  >  0  ! 

r 
\ 

if(  rec_siow  ) 

r 
\ 

v_qteKt (data_hndl,data_wQrk.g_x+5,dataj*ork.g_y+ydatat8, 

"  .."RECOVERY  TQD  SlO*  "); 
ydata++; 

if  (  rate_big  ) 
{ 

v_gtext(data_hndl,data_HDrk.g_x+5,data_work.g_y+ydatat8, 

u  ..  RATE  TQD  FAST  '); 
ydata++; 

Ui   Etd.big  ) 
{ 

v_gtext(data_hndl,data_Mork.g_x+5,data_uork.g_y+ydatat8, 

"   ..  ST.  DEV  TOG  BIG  B); 
ydata++; 
} 

iff  bigst  <  0  ) 
{ 

v_gtext (data_hndl,data_Kork.g_x+j,data_work.g_y+ydataJ8, 
■  .."o  STATES  IN  MODEL"); 
ydata++; 

if  f  pnarn  ! 
{ 

v_gtext(data_hndl,data_nork.g_x+5,datajiork.g_y+ydatatB, 

'  ..  PRUNING  TOO  SEVERE"); 
ydata++; 

} 

else 

erun  =  TRUE; 
rec_slon  =  FALSE; 
rate_biy  =  FALSE; 
5td_big  =  FALSE; 

set_cl ip (TRUEsfedata_work> ; 

vst_height(data_hndl,char_'fine,Jigl_wchar,4gl_hchar, 
&gl_*char,gl_hchar) ; 
d05_prmtf ("do_coipute  has  been  exited"!; 
}  It  do_co»pute()  %t 
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IX xi 

!%            execstatsd         XI 
IX X! 

VOID 

execstats  0 
\ 

BYTE   nu»_5tr[5]; 
dos  pnnt-f  ("execstats  has  been  entered"); 


it!  LIST  >  0  i 
( 

itoa(pathcount,nu«_str) ; 

v_gtext idata_hndl,data_work.g_x+5,data_wark.g_y+ydataJ8, 

nui_str); 
¥_gtext(data_hnd],data_work.g_x+B3,data_norfc.g_y+ydatatB, 
"  "PATH(S)  PRQCESSEB"! ; 
yriata++; 

Hi  cnttrunc  >  0  ) 
i 

itoa(cnttrunc,nui_5trl ; 

v_gtext (data_hndl ,data_Mork.g_x+5,data_Nork.g_y+ydatatB, 

nus_str); 
v_gtext(data_hndl,dataj*ork.g_x+83,data_iiork.g_y+ydatatB, 

"LOOP (Si  TRUNCATED*) ;~ 
ydata+t; 
) 

if!  cr.tprune  >  0  ) 

r 
\ 

itoa(cntprune,nui»_5tr ) ; 

v_gtext  (data_hndi , data_work.Q_x+5,data_wort;,g_y+ydata*8, 

nue_str) ; 

v_gtext(data_hndl,data_work.g_x+83,data_work.g_y+ydatatB, 

"LOQPiSi  PRUNED'); 
ydata++; 

i 

save_data_nork(); 
dospr  i  nt-f  Cexecstats  has  been  exited6); 
}  IX  execstatO  XI 
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ABSTRACT 

This  thesis  describes  the  porting  of  a  NASA  developed 
Markov  reliability  analysis  tool  to  a  relatively  inexpensive 
IBM-AT.  Currently  the  Markov  analysis  tool,  called  SURE,  is 
not  widely  utilized  because  it  runs  in  an  expensive 
environment  consisting  of  a  VAX,  megatex  display,  and 
template  graphics  software.  Although  substantial  savings  can 
be  made  by  running  SURE  without  the  expensive  graphics,  the 
user  friendliness  of  the  tool  is  dramatically  degraded  by 
the  lack  of  graphics.  Accordingly  a  C  program  using  the 
inexpensive  GEM  graphics  environment  has  been  written.  The 
program  is  user  friendly;  it  uses  menus  for  option 
selections  and  prompts  for  data  entry. 
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